在windows下的組合鍵偵測問題 |
答題得分者是:hagar
|
cxg
中階會員 發表:116 回覆:192 積分:76 註冊:2004-02-12 發送簡訊給我 |
我用一下代碼來偵測Ctrl Alt Del組合鍵但沒有反應,請問是什麽原因,謝謝。
private
{ Private declarations }
ID1: Integer;
PROCEDURE REG_HOTKEY;
public
{ Public declarations }
end; implementation procedure TGetMACForm.WMHotKey (var Msg : TWMHotKey);
begin
if msg.HotKey = ID1 then ShowMessage('Ctrl Alt Del键被按下!');
end; procedure TGetMACForm.FormCreate(Sender: TObject);
begin
REG_HOTKEY;
end; PROCEDURE TGetMACForm.REG_HOTKEY;
Const
MOD_ALT = 1;
MOD_CONTROL = 2;
VAR
VK_R : Longword;
begin
if GlobalFindAtom('MyHotkey1') = 0 then
begin {注册全局热键Ctrl Alt Del}
ID1:=GlobalAddAtom('MyHotkey1');
VK_R := 46;
RegisterHotKey(handle,ID1,MOD_CONTROL MOD_Alt,VK_R);
end;
END; procedure TGetMACForm.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(handle,ID1);
GlobalDeleteAtom(ID1);
end;
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |