请问怎样在程序中禁用Windows的各个热键? 主要是禁用Alt+F4热键。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);beginif (ssAlt in shift)and(key=115) then key:=0;end; procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if (ssAlt in shift)and(key=115) then key:=0;end; 这个也不错!unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } HotKeyId: Integer; procedure HotKeyDown(var Msg: Tmessage); message WM_HOTKEY; //热键消息响应 public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.HotKeyDown(var Msg: Tmessage);begin if (Msg.LparamLo = Mod_Alt) And (Msg.LParamHi = VK_F4) then begin //什么也不做 end;end;procedure TForm1.FormCreate(Sender: TObject);begin HotKeyId := GlobalAddAtom('HotKey') - $C000; RegisterHotKey(Handle, hotkeyid, Mod_Alt, VK_F4);end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);beginUnRegisterHotKey(handle, HotKeyId);end;end. 俺仿造hongqi162(失踪的月亮),还个绝的!加上一个MenuItem,HotKey属性是Alt+F4,OnClick事件什么都不写,就屏蔽了Alt+F4了。 关于Ehlib组件 请教:从exe给dll传递一个adoquery参数,报invalide pointer 错误,怎么解决? 问问题好艰难呀,半天了没人回答,是不是我分少了,我没分给了呀,用完了 ■■程序员的形象■■ 大家使用感知控件多,还是普通的控件多呢?为什么? 请问那里有图片下载 怎样同时激活两个窗体(两个Form都呈现亮色) 怎样知道IE拖出的链接落在Delphi的窗体上? query的requestlive属性到底是什么意思呀? 请问关于编局域网聊天室的几个问题: 关于窗体调用问题 简单的问题,哪位解答一下,加100分!!!!如何用一个过程释放不同的类!
begin
if (ssAlt in shift)and(key=115) then key:=0;
end;
Shift: TShiftState);
begin
if (ssAlt in shift)and(key=115) then key:=0;
end;
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
HotKeyId: Integer;
procedure HotKeyDown(var Msg: Tmessage); message WM_HOTKEY; //热键消息响应
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}
procedure TForm1.HotKeyDown(var Msg: Tmessage);
begin
if (Msg.LparamLo = Mod_Alt) And (Msg.LParamHi = VK_F4) then
begin
//什么也不做
end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
HotKeyId := GlobalAddAtom('HotKey') - $C000;
RegisterHotKey(Handle, hotkeyid, Mod_Alt, VK_F4);
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnRegisterHotKey(handle, HotKeyId);
end;end.