...detect Shift Key on application startup?

Author: Thomas Stutz

Category: System

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.

 

printed from
www.swissdelphicenter.ch
developers knowledge base