Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Диспетчер задач | Delphi (https://forum.antichat.xyz/showthread.php?t=200807)

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

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

TrueBit 01.05.2010 00:01
мб, из за того что win seven?

ilyhamas 01.05.2010 00:02
как на xp так и на семёрке не пашет

TrueBit 01.05.2010 00:20
что бы ошибка не появлялась try except

ZdezBilYa 01.05.2010 00:49
Попробуй:
Код:
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System',true);

ilyhamas 01.05.2010 09:06
Цитата:
Сообщение от ZdezBilYa
Попробуй:
Код:
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System',true);
от этого не зависит. Знаю только то, что на ошибку влияет сама операционка. Она не пускает редактировать реестр без ведома пользователя. Этого и нужно избежать

M_script_ 01.05.2010 09:24
Учетка с админскими правами?

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

ilyhamas 01.05.2010 09:29
Цитата:
Сообщение от M_script_
Учетка с админскими правами?

вот похожая тема - http://forum.antichat.ru/threadnav193358-1-10.html
да с админа.
спасибо посмотрю

stepashka_ 01.05.2010 09:35
Вот так не пойдёт?
Цитата:
//Отключить
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 01.05.2010 11:18
Код:
[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\


Время: 08:26