Глобальные сочетания клавиш

ShowMessage(Handle, SW_Hide);

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
if Msg.HotKey = id1 then {CTRL+ALT+F10}                             в этом месте
WindowState:= wsMinimized ;
 
   if Msg.HotKey = id2 then
     ShowMessage('Ctrl + Alt + R pressed !');
   if Msg.HotKey = id3 then
     ShowMessage('Win + F4 pressed !');
   if Msg.HotKey = id4 then
     ShowMessage('Print Screen pressed !');
end;

if Msg.HotKey = id1 then {CTRL+ALT+F10}                            // в этом месте
WindowState:= wsMinimized ;

if Msg.HotKey = id1 then {CTRL+ALT+F10}                            // в этом месте
  SendMessage(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 1);

if Msg.HotKey = id1 then {CTRL+ALT+F10}                            
  SendMessage(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 1);

procedure TMainForm.WMHotKey(var Msg: TWMHotKey);
begin
  If Msg.HotKey = id1 then
    begin
      If SendMessage(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 1);
        begin
          ShowWindow(Handle,SW_SHOW);
          
        end
      else if ShowWindow(Handle,SW_SHOW);
        SendMessage(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 1);
end;

If SendMessage(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 1);
        begin
          ShowWindow(Handle,SW_SHOW);
          
        end

private
    _is_visible: Boolean;

  _is_visible := true;

procedure TMainForm.WMHotKey(var Msg: TWMHotKey);
begin
  If Msg.HotKey = id1 then
    begin
      If _is_visible then
        PostMessage(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 1)
      else
        PostMessage(Handle, WM_User + 2, 1, WM_LButtonUp);
    end;

Unit1 in '..\..\Программы\Система\Програмирование\Delphi\Проэкты\Пример работы\Пример работы с треем\Пример работы с треем\Unit1.pas' {Form1};

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus,ShellAPI, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    pmTreyMenu: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Timer1: TTimer;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Timer2: TTimer;
        {Òðåé}
    Procedure ControlWindow(Var Msg:TMessage); message WM_SYSCOMMAND;
    Procedure IconMouse(var Msg:TMessage); message WM_USER+1;
    Procedure  Ic(n:Integer;Icon:TIcon);
    Procedure OnMinimizeProc(Sender:TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
     id1, id2, id3, id4: Integer;
     procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  x: Word;
  s,m,n:Integer;
 
implementation
 
{$R *.dfm}
 {======================================}
{Ìåòîäû äëÿ äîáàâëåíèÿ ïðîãðàììû â òðåé}
{======================================}
procedure TForm1.IconMouse(var Msg:TMessage);
Var p:tpoint;
begin
 GetCursorPos(p); // Çàïîìèíàåì êîîðäèíàòû êóðñîðà ìûøè
 Case Msg.LParam OF  // Ïðîâåðÿåì êàêàÿ êíîïêà áûëà íàæàòà
  WM_LBUTTONUP,WM_LBUTTONDBLCLK: {Äåéñòâèÿ, âûïîëíÿåìûé ïî îäèíàðíîìó èëè äâîéíîìó ùåë÷êó ëåâîé êíîïêè ìûøè íà çíà÷êå.  íàøåì ñëó÷àå ýòî ïðîñòî àêòèâàöèÿ ïðèëîæåíèÿ}
                   Begin
                    Ic(2,Application.Icon);  // Óäàëÿåì çíà÷îê èç òðåÿ
                    ShowWindow(Application.Handle,SW_SHOW); // Âîññòàíàâëèâàåì êíîïêó ïðîãðàììû
                    ShowWindow(Handle,SW_SHOW); // Âîññòàíàâëèâàåì îêíî ïðîãðàììû
                    Update;
                   End;
  WM_RBUTTONUP: {Äåéñòâèÿ, âûïîëíÿåìûé ïî îäèíàðíîìó ùåë÷êó ïðàâîé êíîïêè ìûøè}
   Begin
    SetForegroundWindow(Handle);  // Âîññòàíàâëèâàåì ïðîãðàììó â êà÷åñòâå ïåðåäíåãî îêíà
    pmTreyMenu.Popup(p.X,p.Y);  // Çàñòàâëÿåì âñïëûòü íàøå PopMenu
    PostMessage(Handle,WM_NULL,0,0);
   end;
 End;
end;
 
Procedure TForm1.OnMinimizeProc(Sender:TObject);
Begin
 PostMessage(Handle,WM_SYSCOMMAND,SC_MINIMIZE,0);
End;
 
Procedure TForm1.ControlWindow(Var Msg:TMessage);
Begin
 IF Msg.WParam=SC_MINIMIZE then
  Begin
   Ic(1,Application.Icon);                    // Äîáàâëÿåì çíà÷îê â òðåé
   ShowWindow(Handle,SW_HIDE);                // Ñêðûâàåì ïðîãðàììó
   ShowWindow(Application.Handle,SW_HIDE);  // Ñêðûâàåì êíîïêó ñ TaskBar'à
 End
 else inherited;
End;
 
Procedure TForm1.Ic(n:Integer;Icon:TIcon);
Var Nim:TNotifyIconData;
begin
 With Nim do
  Begin
   cbSize:=SizeOf(Nim);
   Wnd:=Self.Handle;
   uID:=1;
   uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
   hicon:=Icon.Handle;
   uCallbackMessage:=wm_user+1;
   szTip :='Èçó÷àåì ðàáîòó ñ òðååì';
  End;
 Case n OF
  1: Shell_NotifyIcon(Nim_Add,@Nim);
  2: Shell_NotifyIcon(Nim_Delete,@Nim);
  3: Shell_NotifyIcon(Nim_Modify,@Nim);
 End;
end;
procedure TForm1.N1Click(Sender: TObject);
begin
 ShowMessage('Àâòîð ïðèìåðà: Äþêîâ Êîíñòàíòèí' + #13#10 + 'ñ âîïðîñàìè îáðàùàòüñÿ ñþäà:' + #13#10 + 'ICQ:353788400');
end;
 
procedure TForm1.N2Click(Sender: TObject);
begin
  Ic(2,Application.Icon);
Close;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin  //Âðåìÿ
Label1.Caption:=FormatDateTime('ss', Time);
Label8.Caption:=FormatDateTime('mm', Time);
Label9.Caption:=FormatDateTime('hh', Time)
end;
 
procedure TForm1.FormCreate(Sender: TObject);
const
   MOD_ALT = 1;
   MOD_CONTROL = 2;
   MOD_SHIFT = 4;
   MOD_WIN = 8;
   VK_A = #68;
   VK_R = $52;
   VK_F4 = $73;
Var x:Word;
begin
  s:=60 ;
  m:=20;
  n:=2 ;
   begin
   // Register Hotkey Ctrl + A 
  id1 := GlobalAddAtom('Hotkey1');
   RegisterHotKey(Handle, id1, MOD_CONTROL + MOD_Alt, VK_F10);
 
   // Register Hotkey Ctrl + Alt + R 
  id2 := GlobalAddAtom('Hotkey2');
   RegisterHotKey(Handle, id2, MOD_CONTROL + MOD_Alt, VK_R);
 
   // Register Hotkey Win + F4 
  id3 := GlobalAddAtom('Hotkey3');
   RegisterHotKey(Handle, id3, MOD_WIN, VK_F4);
 
   // Globally trap the Windows system key "PrintScreen" 
  id4 := GlobalAddAtom('Hotkey4');
   RegisterHotKey(Handle, id4, 0, VK_SNAPSHOT);
 end;
Label2.Caption:=DateTostr(Date);
x:= DayOfWeek(Date);
  Case x of
  1: Label7.Caption:='âîñêðåñåíüå';
  2: Label7.Caption:='ïîíåäåëüíèê';
  3: Label7.Caption:='âòîðíèê';
  4: Label7.Caption:='ñðåäà';
  5: Label7.Caption:='÷åòâåðã';
  6: Label7.Caption:='ïÿòíèöà';
  7: Label7.Caption:='ñóááîòà';
end;
end;
 
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
if Msg.HotKey = id1 then {CTRL+ALT+F10}
 
        SendMessage(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 1);
 
   if Msg.HotKey = id2 then
     ShowMessage('Ctrl + Alt + R pressed !');
   if Msg.HotKey = id3 then
     ShowMessage('Win + F4 pressed !');
   if Msg.HotKey = id4 then
     ShowMessage('Print Screen pressed !');
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
 UnRegisterHotKey(Handle, id1);
   GlobalDeleteAtom(id1);
   UnRegisterHotKey(Handle, id2);
   GlobalDeleteAtom(id2);
   UnRegisterHotKey(Handle, id3);
   GlobalDeleteAtom(id3);
   UnRegisterHotKey(Handle, id4);
   GlobalDeleteAtom(id4);
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
begin
s:=s-1;
Label3.Caption:=IntToStr(n)+':'+IntToStr(m)+':'+IntToStr(s);
if s<10 then
Label3.Caption:=IntToStr(n)+':'+IntToStr(m)+':'+'0'+IntToStr(s);
end;
 
end.

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
  If Msg.HotKey = id1 then
    begin
      If IsWindowVisible(Self.Handle) then
        PostMessage(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 1)
      else
        PostMessage(Handle, WM_User + 1, 1, WM_LBUTTONUP);
    end
  else if Msg.HotKey = id2 then
    ShowMessage('Ctrl + Alt + R pressed !')
  else if Msg.HotKey = id3 then
    ShowMessage('Win + F4 pressed !')
  else if Msg.HotKey = id4 then
    ShowMessage('Print Screen pressed !');
end;

function _time_to_string(_hour, _minute, _second: Word): String;
var
  _time: TDateTime;
begin
  _time := EncodeTime(_hour, _minute, _second, 0);
  Result := TimeToStr(_time);
end;