如题
解决方案 »
- cxgrid 排序问题
- 请问怎样才能重载或覆盖父类的Paint事件呢?
- 我想开发一个C/S系统
- 我用ServerSocket和clientsocket控件时为什么时间长了它们就会断开?
- ServerSocket怎样获得当前ClientSocket连接阿?并且根据IP决定拒绝该连接
- 哪里有delphi6.0自带的安装程序呀InstallShield
- 怎样让DBLookupComboBox和DBGrid的数据关联起来?若解决立马给分!!!
- depphi 桌面效果
- 请各位给个动态加载TreeView的例子。
- 请问G711的音频数据怎么编解码?我想把它保存成WAV格式的文件
- TcpServer和TcpClient通信连接报错的问题
- 在查询图片时,提示JPEG error #42错误,Help !TKS!
下代码:
Var
temp:integer;
begin
SystemParametersInfo(Spi_screensaverrunning,1,@temp,0);
end;
当你要恢复功能键时用以下代码:
Var
Temp:integer;
begin
SystemParametersInfo(spi_screensaverrunning,0,@temp,0);
end;
'SAS window class'
var
Reg:TRegistry;
Begin
result :=0;
Reg:=TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System', True) then
begin
if Flag = 1 then
Reg.WriteInteger('DisableTaskMgr',1)
else
Reg.WriteInteger('DisableTaskMgr',0);
Reg.CloseKey;
result :=1;
end;
except
Reg.Free;
end;
end;或者楼主用Hook发现有任务管理器的窗体创建时马上把它关闭!
如果创建的窗口是 windows任务管理器 就拦截