Быстрый вызов программы с помощью мыши

[Патрон]

Помогите пожалуйста, никак не могу сделать чтобы программу можно было вызвать ото-всюду нажатем на колесо мыши (при этом программа сидит в трее)... Заранее спасибо

[Stilet]

вызвать ото-всюду нажатем на колесо мыши

Видимо нужно хук прикрутить к твоей программе.

[NikLik]

unit Unit1;

 interface

 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
   Dialogs, AppEvnts, StdCtrls, ExtCtrls;

 type
   TForm1 = class(TForm)
    ApplicationEvents1: TApplicationEvents;
     procedure ApplicationEvents1Message(var Msg: tagMSG;
       var Handled: Boolean);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

 var
   Form1: TForm1;

 implementation

 {$R *.dfm}

 var
   JHook: THandle;

function JournalProc(Code, wParam: Integer; var EventStrut: TEventMsg): Integer; stdcall;
 begin
   Result := CallNextHookEx(JHook, Code, wParam, Longint(@EventStrut));
   if Code = HC_ACTION then
if EventStrut.message=WM_MBUTTONDOWN then
     if form1.Showing then form1.Hide else begin
    form1.Show;
 with form1 do
   SetWindowPos(Handle,
               HWND_TOPMOST,
               Left,
               Top,
               Width,
                Height,
               SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
     end;
 end;

 procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
   var Handled: Boolean);
 begin
   Handled := False;
   if (Msg.message = WM_CANCELJOURNAL) then         //при нажатии Ctrl+alt+del hook останавливается,
     JHook := SetWindowsHookEx(WH_JOURNALRECORD, @JournalProc, hInstance, 0);//мы его запускаем заново
 end;

 procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
      UnhookWindowsHookEx(JHook);
 end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   JHook := SetWindowsHookEx(WH_JOURNALRECORD, @JournalProc, hInstance, 0);
end;

end.

[Патрон]

NikLik, отлично, спасибо большое!! +1