detect Shift Key on application startup?

Author: Thomas Stutz

Homepage: http://www.swissdelphicenter.ch

0 Comments to this tip [Write new comment]

[ Print tip ]

Tip Rating (7):

Skill:

Useful:

Overall:

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 eingefügt werden, um die Applikation als

Tray Icon anzuzeigen}

end;

Application.CreateForm(TForm1, Form1);

Application.Run;

end.