在XP中怎么屏蔽功能键? 在XP中怎么屏蔽功能键?如热启动的,我用systemparametersinfo(spi_screensaverrunning,1,@temp,0);但在按了热启动键后仍然可以启动程序管理器把相应的程序关闭 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 systemparametersinfo(spi_screensaverrunning,1,0,0);再试试. 上面的这个只能在WIN2000下有用.下面的可以在XP下实现.请你试试这段代码.procedure DisableTaskMgr(bTF: Boolean); var reg: TRegistry; begin reg := TRegistry.Create; reg.RootKey := HKEY_CURRENT_USER; reg.OpenKey('Software', True); reg.OpenKey('Microsoft', True); reg.OpenKey('Windows', True); reg.OpenKey('CurrentVersion', True); reg.OpenKey('Policies', True); reg.OpenKey('System', True); if bTF = True then begin reg.WriteString('DisableTaskMgr', '1'); end else if bTF = False then begin reg.DeleteValue('DisableTaskMgr'); end; reg.CloseKey; end; // 例子: procedure TForm1.Button1Click(Sender: TObject); begin DisableTaskMgr(True); end; Typename, Disabling Keys in Windows XP with TrapKeys http://msdn.microsoft.com/msdnmag/issues/02/09/CQA/default.aspx 用delphi2007开发com+、dcom时遇到一个问题---服务端和客户端不在一台机器时如何配置 DELPHI传地址问题~! 如何向QQ聊天窗口的RICHEDIT32控件发送CTRL+V组合键 动态改变IP地址 ActiveX问题。急..................... 如何通过应用程序将几个activex控件的cab包下载到客户端并安装? 链接问题(在线等待) smtp邮件发送时间问题 zhu8888一步一步住前走来接这100分。我是守信的。 Delphi5和Delphi6分别连接Excel问题 我用sendmessage发的消息对方怎么收不到?谢谢! 求购书籍
再试试.
下面的可以在XP下实现.
请你试试这段代码.procedure DisableTaskMgr(bTF: Boolean);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER; reg.OpenKey('Software', True);
reg.OpenKey('Microsoft', True);
reg.OpenKey('Windows', True);
reg.OpenKey('CurrentVersion', True);
reg.OpenKey('Policies', True);
reg.OpenKey('System', True); if bTF = True then
begin
reg.WriteString('DisableTaskMgr', '1');
end
else if bTF = False then
begin
reg.DeleteValue('DisableTaskMgr');
end;
reg.CloseKey;
end; // 例子:
procedure TForm1.Button1Click(Sender: TObject);
begin
DisableTaskMgr(True);
end;
http://msdn.microsoft.com/msdnmag/issues/02/09/CQA/default.aspx