Определение нажатия определенной клавиши во время загрузки приложения

Previous  Top  Next

    
 

 

Code:

program Project1;

 

uses

Windows,

Forms,

Unit1 in 'Unit1.pas' {Form1};

 

{$R *.RES}

 

begin

if GetKeyState(vk_F8) < 1 then

   MessageBox(0, 'F8 was pressed during startup', 'MyApp', mb_ok);

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.Run;

end.

 

 

 

 

©Drkb::01554

http://delphiworld.narod.ru/

DelphiWorld 6.0

 


 

 

Code:

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.

 

 

©Drkb::01555

http://delphiworld.narod.ru/

DelphiWorld 6.0