Показать сообщение отдельно
  #3  
Старый 05.12.2009, 14:14
Аватар для AND_REY
AND_REY AND_REY вне форума
Активный
 
Регистрация: 31.03.2009
Адрес: Украина, г.Днепропетровск
Сообщения: 324
Версия Delphi: Delphi7
Репутация: 3877
По умолчанию

Вот простой пример вкл/выкл диспетчера:
Цитата:
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" для размещения кода, неужели этот так сложно для понимания...
Выношу замечание.
Ответить с цитированием