怎样注册系统热键?? 怎样注册系统热键?? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你要注册什么样的系统热键???如果是tab加什么键的话,在caption中加入(&键名)就可以了。 补充一下:注册系统热键!!!!!比如:任何时间按下CTRL+ALT+DELETE键后打开任务管理器!!!怎么实现???? hotkeyid:= GlobalAddAtom(pchar('UserDefineHotKey_S')) - $C000; registerhotkey(handle, hotkeyid[0], MOD_CONTROL, $53);procedure WMhotkeyhandle(var msg: Tmessage); message wm_hotkey;procedure TFrmMain.WMhotkeyhandle(var msg: Tmessage);begin if (msg.lparamLo = MOD_CONTROL) then begin case msg.LParamHi of $43:begin ...; end;end;unregisterhotkey(handle, hotkeyid); DeleteAtom(HotKeyID); //释放热键 注册Ctrl+scase msg.LParamHi of $43:begin//改为$53 ...; end; 请问哪有FastReport报表控件下载啊! 在delphi中 如何保存一个文件夹 用 IdUDPServer 和 IdUDPServer进行图象的传输! 如何将delphi的繁体变为简体,在线等。。。。 delphi 如何通过账号访问 服务器上的文件夹 sql server 2000密码--------在线等, 即给分 *.tif是什么类型文件,用什么打开?(不是tiff)急 急 急、1 如何知道一个表里面有多少条记录??????? 高分求解:谁有最好的ACCESS数据库加密方法? 如何实现订单号由日期加三位数字组成 关于Web服务器项目的问题 如何实现qrexpr求和后保留两位小数。
如果是tab加什么键的话,在caption中加入(&键名)就可以了。
比如:任何时间按下CTRL+ALT+DELETE键后打开任务管理器!!!怎么实现????
registerhotkey(handle, hotkeyid[0], MOD_CONTROL, $53);
procedure WMhotkeyhandle(var msg: Tmessage); message wm_hotkey;
procedure TFrmMain.WMhotkeyhandle(var msg: Tmessage);
begin
if (msg.lparamLo = MOD_CONTROL) then
begin
case msg.LParamHi of
$43:begin
...;
end;
end;
unregisterhotkey(handle, hotkeyid);
DeleteAtom(HotKeyID); //释放热键
case msg.LParamHi of
$43:begin//改为$53
...;
end;