xp中屏蔽系统键(100分)

  • 主题发起人 主题发起人 yfw1988
  • 开始时间 开始时间
Y

yfw1988

Unregistered / Unconfirmed
GUEST, unregistred user!
请问在xp中如用delphi7何屏蔽ctrl+alt+delete键呀?
谢谢!893456639@qq.com.
 
当你不需要让用户按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;
 
并且如果屏蔽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;
 

Similar threads

回复
0
查看
816
不得闲
回复
0
查看
989
不得闲
S
回复
0
查看
829
SUNSTONE的Delphi笔记
S
S
回复
0
查看
770
SUNSTONE的Delphi笔记
S
后退
顶部