Вот простой пример вкл/выкл диспетчера:
Цитата:
Uses
Registry;
// Выкл диспетчер.
procedure TForm1.Button1Click(Sender: TObject);
var
Reg:TRegistry;
begin
Reg:=TRegIniFile.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVer sion\Policies\System', True);
Reg.WriteInteger('DisableTaskMgr', 1);
Reg.CloseKey;
Reg.Free;
end;
// Вкл диспетчер.
procedure TForm1.Button2Click(Sender: TObject);
var
Reg:TRegistry;
begin
Reg:=TRegIniFile.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVer sion\Policies\System', True);
Reg.WriteInteger('DisableTaskMgr', 0);
Reg.CloseKey;
Reg.Free;
end;
|
Admin: Тег "QUOTE" импользуется для цитирования, а "CODE" для размещения кода, неужели этот так сложно для понимания...
Выношу замечание.