请教如何屏蔽系统功能键?(100分)

  • 主题发起人 主题发起人 mhysky
  • 开始时间 开始时间
M

mhysky

Unregistered / Unconfirmed
GUEST, unregistred user!
我想屏蔽Win200系统的功能键如 Ctrl+Alt+Del,Ctrl+Esc
 
钩子键盘应该可以,http://service.lonetear.com/delphi/dispdoc.asp?id=1299
 
看看这个:
http://www.delphibbs.com/delphibbs/dispq.asp?lid=600523
http://www.delphibbs.com/delphibbs/dispq.asp?lid=585886
 
屏蔽系统功能键

当你不需要让用户按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;

 
你是不是不想用户打开"task manager"
这好办:
Reg:Tregistry;
begin
Reg:=Tregistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('/Software/Microsoft/Windows/CurrentVersion/Policies/System',true);
Reg.WriteInteger('DisableTaskMgr',1);
Reg.Free;
end;
启用时将上面1改为0
如果怕别人打开注册表,把注册表禁掉就行了.
 
http://www.iligia.com/dev/cn/program/dishotkey.htm
您想屏蔽什么键(POWER/SLEEP除外),都可以。
 
iligia的有问题,出错并重起
 
后退
顶部