发信人: mengy (LEAR DLLS 命令时，将从内存中清除), 信区: BorlandDev
标  题: Delphi中屏蔽ALT-F4关闭键
发信站: 哈工大紫丁香 (2001年05月30日08:02:44 星期三), 站内信件

屏蔽Alt+F4关闭键 
 
启动某些程序，使用Alt+F4键，可以快速的退出程序，可是如果是做一个屏幕保护
程序的话，那么这个方便将成为绊脚石，所以有必要令该功能键失去作用，所以我
们使用了窗体的OnKeyDown事件来检测击键： 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: 
TShiftState); 
begin 
if (ssAlt in shift)and(key=115) then key:=0; 
end; 

--

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.121]