programProject1; uses
Forms, Windows, Dialogs, Unit1 in
'Unit1.pas' {Form1}; var
KeyState: TKeyBoardState;
{$R *.RES} beginApplication.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
.