在delphi屏蔽系统功能键
当你不需要让用户按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;
去掉桌面、系统菜单条:
XP下就比较难了,除了Ctrl+Alt+Del其他的应该都可以用低级键盘钩子,Ctrl+Alt+Del要HOOK SAS API,有个控件可用,去掉桌面之类的用ShowWindow就可以了,先找句柄,任务栏的Class:Shell_TrayWnd;桌面:Progman