在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 發送簡訊給我 |
發表時間：2004-05-17 15:22:48
IP:221.218.xxx.xxx 未訂閱
系統時間：2024-05-19 10:01:08
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |