Диспетчер задач | Delphi

[ilyhamas]

Необходимо отключить диспетчер задач через реестр. После открытия программы появляется ошибка failed to set data for 'disable TaskMgr'. На своей машине всё добавляется отлично, а вот на других проблема.
часть кода:
reg:=tregistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Software\Microsoft\Windows\CurrentVer sion\Policies\System',false);
reg.WriteString('DisableTaskMgr','1');
reg.CloseKey;
Как можно исправить, дабы ошибка не появлялась?

з.ы. добавлять в HKEY_LOCAL_MACHINE не предлагать

[TrueBit]

мб, из за того что win seven?

[ilyhamas]

как на xp так и на семёрке не пашет

[TrueBit]

что бы ошибка не появлялась try except

[ZdezBilYa]

Попробуй:
reg.OpenKey('Software\Microsoft\Windows\CurrentVer sion\Policies\System',true);

[ilyhamas]

Попробуй:
reg.OpenKey('Software\Microsoft\Windows\CurrentVer sion\Policies\System',true);

от этого не зависит. Знаю только то, что на ошибку влияет сама операционка. Она не пускает редактировать реестр без ведома пользователя. Этого и нужно избежать

[M_script_]

Учетка с админскими правами?

вот похожая тема - http://forum.antichat.ru/threadnav193358-1-10.html

[ilyhamas]

Учетка с админскими правами?

вот похожая тема - http://forum.antichat.ru/threadnav193358-1-10.html

да с админа.
спасибо посмотрю

[stepashka_]

Вот так не пойдёт?

//Отключить
procedure TForm1.DisablebtnClick(Sender: TObject);
var
b: boolean;
begin
b := false;
SystemParametersInfo(SPI_SCREENSAVE RRUNNING, 1, @b, 0);
end;

//Включить
procedure TForm1.EnablebtnClick(Sender: TObject);
var
b: boolean;
begin
b := false;
SystemParametersInfo(SPI_SCREENSAVE RRUNNING, 0, @b, 0);
end;

[cheater_man]

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\taskmgr.exe]
"Debugger"="\"C:\\WINDOWS\\MYPROG.EXE\""

Запускает вместо taskmng.exe C:\\WINDOWS\\MYPROG.EXE\