Определить, нажат ли Shift при старте приложения

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
.

Другое по теме:

• Эмуляция нажатия клавиш
• Установка ловушки для клавиатуры
• Убрать программу из списка Ctrl+Alt+Delete