发信人: d_fang(df)
整理人: teleme(2001-01-18 16:46:02), 站内信件
|
【 在 st.efan 的大作中提到:】
:怎样使程序在运行时用 crtl+Tab 切换不到?
:......
也许您希望您的程序在运行时不想让用户按系统按键 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;
要恢复系统的热启动键(Ctrl+Alt+Del),使用以下语句
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0);
---- 欢迎参观方文设计室
http://funstudio.coolwww.net
|
|