Borna66
4th May 2012, 21:14
چگونه یک HotKey یا میان بر سیستم درست کرده و آن را مدیریت کنیم؟ (که در تمامی برنامه ها کار کند)
مرجع: http://www.delphi3000.com/articles/article_3529.as p (http://www.delphi3000.com/articles/article_3529.as%20p)
{********************** Copyright © by Jim McKeeth Licensed under LGPL ( http://www.gnu.org/licenses/licenses.html#LGPL ) Demo of creating a system wide hotkey or shortcut This was written in Delphi 7, but should work in most other versions (but obviously not Kylix) You need a form with 1) a THotKey named HotKey1 2) a TCheckBox named CheckBox1 To demo 1) Change the hotkey in the value 2) Check the box 3) Minimize the application 4) Press the hot key 5) Be impressed ———} unit SystemHotKeyUnit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, StdCtrls, Co***rls, Dialogs, // Menus need to be added for calls in the code Menus; type TForm1 = class(TForm) HotKey1: THotKey; CheckBox1: TCheckBox; procedure FormCreate(Sender: TObject); procedure CheckBox1Click(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } protected // Handle the global hot key messages when they are sent to the window procedure HotyKeyMsg(var msg:TMessage); message WM_HOTKEY; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} var myAtom: integer; function ShiftState2Modifier(const Shift: TShiftState):Word; begin Result := 0; if ssShift in Shift then Result := Result or MOD_SHIFT; if ssAlt in Shift then Result := Result or MOD_ALT; if s***rl in Shift then Result := Result or MOD_CONTROL; end; function GetShortCutKey(ShortCut: TShortCut):Word; var shift: TShiftState; begin ShortCutToKey(ShortCut,Result,shift); // call in Menus! end; function GetShortCutModifier(ShortCut: TShortCut):Word; var key: Word; shift: TShiftState; begin ShortCutToKey(ShortCut,key,shift); // call in Menus! Result := ShiftState2Modifier(shift); end; function RegisterHotShortCut(const h:THandle; const Atom: integer; const ShortCut: TShortCut):Boolean; var key : Word; Shift: TShiftState; begin UnregisterHotKey(h,Atom); // call in Windows ShortCutToKey(ShortCut,key,shift); Result := RegisterHotKey(h,Atom,ShiftState2Modifier(Shift),k ey); end; procedure TForm1.FormCreate(Sender: TObject); begin // you need to type cast it as a pChar if you are using a string myAtom := GlobalAddAtom(pchar(‘HotKeyDemo’)); end; procedure TForm1.FormDestroy(Sender: TObject); begin UnregisterHotKey(Handle,myAtom); GlobalDeleteAtom(myAtom); end; procedure TForm1.CheckBox1Click(Sender: TObject); begin if CheckBox1.Checked then RegisterHotShortCut(Handle,myAtom,HotKey1.HotKey) else UnregisterHotKey(Handle,myAtom); end; procedure TForm1.HotyKeyMsg(var msg: TMessage); begin if (msg.LParamLo=GetShortCutModifier(HotKey1.HotKey)) and (msg.LParamHi=GetShortCutKey(HotKey1.HotKey)) then begin Application.BringToFront; Showmessage(‘Hey, now that is a system wide hot key!’) end; end; end.
مرجع: http://www.delphi3000.com/articles/article_3529.as p (http://www.delphi3000.com/articles/article_3529.as%20p)
{********************** Copyright © by Jim McKeeth Licensed under LGPL ( http://www.gnu.org/licenses/licenses.html#LGPL ) Demo of creating a system wide hotkey or shortcut This was written in Delphi 7, but should work in most other versions (but obviously not Kylix) You need a form with 1) a THotKey named HotKey1 2) a TCheckBox named CheckBox1 To demo 1) Change the hotkey in the value 2) Check the box 3) Minimize the application 4) Press the hot key 5) Be impressed ———} unit SystemHotKeyUnit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, StdCtrls, Co***rls, Dialogs, // Menus need to be added for calls in the code Menus; type TForm1 = class(TForm) HotKey1: THotKey; CheckBox1: TCheckBox; procedure FormCreate(Sender: TObject); procedure CheckBox1Click(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } protected // Handle the global hot key messages when they are sent to the window procedure HotyKeyMsg(var msg:TMessage); message WM_HOTKEY; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} var myAtom: integer; function ShiftState2Modifier(const Shift: TShiftState):Word; begin Result := 0; if ssShift in Shift then Result := Result or MOD_SHIFT; if ssAlt in Shift then Result := Result or MOD_ALT; if s***rl in Shift then Result := Result or MOD_CONTROL; end; function GetShortCutKey(ShortCut: TShortCut):Word; var shift: TShiftState; begin ShortCutToKey(ShortCut,Result,shift); // call in Menus! end; function GetShortCutModifier(ShortCut: TShortCut):Word; var key: Word; shift: TShiftState; begin ShortCutToKey(ShortCut,key,shift); // call in Menus! Result := ShiftState2Modifier(shift); end; function RegisterHotShortCut(const h:THandle; const Atom: integer; const ShortCut: TShortCut):Boolean; var key : Word; Shift: TShiftState; begin UnregisterHotKey(h,Atom); // call in Windows ShortCutToKey(ShortCut,key,shift); Result := RegisterHotKey(h,Atom,ShiftState2Modifier(Shift),k ey); end; procedure TForm1.FormCreate(Sender: TObject); begin // you need to type cast it as a pChar if you are using a string myAtom := GlobalAddAtom(pchar(‘HotKeyDemo’)); end; procedure TForm1.FormDestroy(Sender: TObject); begin UnregisterHotKey(Handle,myAtom); GlobalDeleteAtom(myAtom); end; procedure TForm1.CheckBox1Click(Sender: TObject); begin if CheckBox1.Checked then RegisterHotShortCut(Handle,myAtom,HotKey1.HotKey) else UnregisterHotKey(Handle,myAtom); end; procedure TForm1.HotyKeyMsg(var msg: TMessage); begin if (msg.LParamLo=GetShortCutModifier(HotKey1.HotKey)) and (msg.LParamHi=GetShortCutKey(HotKey1.HotKey)) then begin Application.BringToFront; Showmessage(‘Hey, now that is a system wide hot key!’) end; end; end.