另外也可以用自己的程序实现 private AppMessage(var Msg:TMSG;var handled:boolean);procedure TForm1.AppMessage(var Msg:TMsg;var handled:boolean); begin handled:=false; Case Msg.Message of WM_SYSKEYDOWN: if Msg.wParam=VK_F4 then handled:=true; end; end;procedure TForm1.FormCreate(Sender:TObject); begin Application.OnMessage:=AppMessage; end; 这个程序是让你屏蔽掉F4键
private AppMessage(var Msg:TMSG;var handled:boolean);procedure TForm1.AppMessage(var Msg:TMsg;var handled:boolean);
begin
handled:=false;
Case Msg.Message of
WM_SYSKEYDOWN:
if Msg.wParam=VK_F4 then
handled:=true;
end;
end;procedure TForm1.FormCreate(Sender:TObject);
begin
Application.OnMessage:=AppMessage;
end;
这个程序是让你屏蔽掉F4键