БОЛЬШОЙ FAQ ПО DELPHI



Определить, нажат ли Shift при старте приложения


 program Project1;
 
 uses
   Forms,
   Windows,
   Dialogs,
   Unit1 in 'Unit1.pas' {Form1};
 
 var
   KeyState: TKeyBoardState;
 
 {$R *.RES}
 
 begin
   Application.Initialize;
   GetKeyboardState(KeyState);
   if ((KeyState[vk_Shift] and 128) <> 0) then
   begin
     { here you could put some code to show the app as tray icon, ie
 
      hier kann z.B ein Code eingefugt werden, um die Applikation als
      Tray Icon anzuzeigen}
   end;
   Application.CreateForm(TForm1, Form1);
   Application.Run;
 end.
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ