Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Win Api / Как назначить горячие клавиши (shortcuts), чтобы они были доступны даже если сейчас активна другая программа (как это делает аська).

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

Попробуй этот код:

 type 
   TForm1 = class(TForm) 
     procedure FormCreate(Sender: TObject); 
     procedure FormDestroy(Sender: TObject); 
   protected 
     procedure hotykey(var msg:TMessage); message WM_HOTKEY; 
   end; 

 var 
   Form1: TForm1; 
   id,id2:Integer; 

 implementation 

 {$R *.DFM} 


 procedure TForm1.hotykey(var msg:TMessage); 
 begin 
   if (msg.LParamLo=MOD_CONTROL) and (msg.LParamHi=81) then 
   begin 
     ShowMessage('Ctrl + Q wurde gedrьckt !'); 
   end; 

   if (msg.LParamLo=MOD_CONTROL) and (msg.LParamHi=82) then 
   begin 
     ShowMessage('Ctrl + R wurde gedrьckt !'); 
   end; 
 end; 


 procedure TForm1.FormCreate(Sender: TObject); 
 begin 
   id:=GlobalAddAtom('hotkey'); 
   RegisterHotKey(handle,id,mod_control,81); 

   id2:=GlobalAddAtom('hotkey2'); 
   RegisterHotKey(handle,id2,mod_control,82); 
 end; 

 procedure TForm1.FormDestroy(Sender: TObject); 
 begin 
   UnRegisterHotKey(handle,id); 
   UnRegisterHotKey(handle,id2); 
 end; 

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru