Mega Code Archive
Detect Shift Key on application startup
<![CDATA[
Title: detect Shift Key on application startup?
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.
]]>