精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>图形界面和窗体>>Re:怎样使程序在运行时用 crtl+Tab 切换不到?

主题:Re:怎样使程序在运行时用 crtl+Tab 切换不到?
发信人: 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

[关闭][返回]