在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 sql里的条件中怎么赋变量? 急需delphi的数据库操作图标(bmp)100分送上,在线等待 数据库设计中的困惑,应该是所有人都会遇到的 在线等的问题 小菜一碟-线程基础知识(通俗篇、俗篇、俗),菜鸟老鸟,需要的都来看! 土问国内delphi informant magezine哪有卖的? 救救小弟我吧! 我发现delphi的bug.大家看一下 高分求救!!!关于树节点保存成文件的问题. 存储过程问题!谢谢! 我用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