发信人: redfox (Z掉了几乎所有的版...), 信区: BorlandDev
标  题: Delphi编程 -- 4.2 屏蔽系统按键
发信站: 哈工大紫丁香 (2000年09月01日15:04:13 星期五), 站内信件

屏蔽系统按键 

也许您希望您的程序在运行时不想让用户按系统按键 Alt-Tab 或 　
Ctrl-Alt-Del，那么可以通过以下的程序段屏蔽这些按键。 　

procedure TForm1.FormCreate(Sender: TObject); 　

begin 　

var 　

tmp : integer;

　 begin

　 tmp := 0;

　 //屏蔽 Alt-Tab

　 SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, @tmp, 0);

　 //屏蔽 Ctrl-Alt-Del

　 SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @tmp, 0); 　 end; 　
end;

 

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