Tips (1541)

Tip Bewertung (4):

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.