用delphi如何屏蔽alt+tab,ctrl+alt+del,ctrl+esc这三个组合功能键，并且如果屏蔽windows的任务栏和开始菜单？

Question

用delphi如何屏蔽alt+tab,ctrl+alt+del,ctrl+esc这三个组合功能键，并且如果屏蔽windows的任务栏和开始菜单？

Answer 1

不太清楚你要在什么地方屏蔽这些按键，是在IDE中还是代码中，如果是代码中，在KeyDown中判断就行了

Answer 2

怎么，想黑人呀：）^_^
当你不需要让用户按Alt+Enter、Ctrl+Alt+Del、Ctrl+Esc等功能键的时候加入以下代码： 
Var 
temp:integer; 
begin 
SystemParametersInfo(Spi_screensaverrunning,1,@temp,0); 
end; 
　　当你要恢复功能键时用以下代码： 
Var 
Temp:integer; 
begin 
SystemParametersInfo(spi_screensaverrunning,0,@temp,0); 
end;

Answer 3

并且如果屏蔽windows的任务栏:
在你的Form创建过程(oncreate)中加入： 
  ShowWindow(FindWindow('Progman', nil), SW_HIDE); 
  ShowWindow(FindWindow('Shell_TrayWnd',nil),SW_hide); 
  SystemParametersInfo(Spi_screensaverrunning,1,@li,0); 
  SetWindowLong(Handle, GWL_STYLE, 
                GetWindowLong(Handle,GWL_STYLE) AND 
                NOT WS_CAPTION); 不过可千万别忘了在退出过程中加入这个： 
SystemParametersInfo(spi_screensaverrunning,0,@li,0); 
ShowWindow(FindWindow('Progman', nil), SW_Show);{隐藏} 
ShowWindow(FindWindow('Shell_TrayWnd',nil),SW_show); 
其中li为integer; 

Answer 4

Good good study, Day day up.