ایجاد Global HotKey در ویندوز

[farzad_az_shiraz]

سلام
من مي خوام با توابع API بتونم mailam را باز كنم. البته با استفاده از تابع شورت كات يا همون hotkey ولي نميدونم چطوري ؟

البته من مي تونم با اين تابع مثلا يه فايل exe را صدا بزنم و اجرا كنم ولي فقط دو كليد را ميتونم تركيب كنم و نه بيشتر.
مثلا در مثال زير كه calc.exe را صدا زدم .



unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,shellapi, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Timer1: TTimer;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Timer1Timer(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Math;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(Application.Handle,$BFFFA,MOD_WIN,7 4);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
VAR MSG:tagMSG;
begin
WaitMessage;
IF PeekMessage(MSG,Application.Handle,WM_HOTKEY,WM_HO TKEY,PM_REMOVE) THEN
BEGIN
If(HiWord(MSG.lParam)=74)and (LOWORD(MSG.lParam)=MOD_WIN) THEN
BEGIN
WinExec('calc.exe',SW_SHOW);
END;
end;
end;


در مثال بالا WIN + J ماشين حساب ويندوز را صدا ميزنه.
ولي نمي دونم چرا بايد دوبار WIN +J را بزنم تا اين كارو بكنه ؟
ممنون مي شم شما اولا استفاده از اين تابع را براي تركيب سه كليد و دوم اينكه من ميخوام mail را با ساختن شورتكات صدا بزنم.
ممنون از لطف همگي

[B-Vedadian]

برای پاسخگویی به Messageهای ویندوز، باید یک رویه از نوع پیغام تعریف کنی.

protected
procedure WMHotkey(var Message: TWMHotkey); message WM_HOTKEY;
بعدش تو این رویه، مقدار Hotkey رو با ID مقایسه کن. برای نمونه، تو مثال خودت مقدار $BFFFA نه کد کلید (47) رو با کد کليد فشرده شده. اينطوري مطمئن تره.

در نهایت هم اینکه میتونی چند تا از MOD_ های رو باهم or کنی. اینجوری ترکیب میتونه 3 تایی بشه.

[skmkh6056]

دوست عزیز جناب farzad_az_shiraz اگه به نتیجه رسیدی کدشو بذار من هم نیازش دارم. مر30

[farzad_az_shiraz]

ممنون از لطفت دوست عزیز B-Vedadian

ولی من منظورتو نفهمیدم

[B-Vedadian]

قسمت اول که واضحه، تو تایمر مسیج چک نکن، یک رویه به همون صورت که نوشتم به کلاس فرمت اضافه کن. بخش دومش یعنی این:


if Message.Hotkey = $BFFFA then
.
.
.