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.
|
Определить, нажат ли Shift при старте приложения