ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
30.04.2010, 23:54
|
|
Новичок
Регистрация: 25.10.2009
Сообщений: 22
Провел на форуме:
179346
Репутация:
0
|
|
Диспетчер задач | 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 не предлагать
Последний раз редактировалось ilyhamas; 30.04.2010 в 23:58..
|
|
|
01.05.2010, 00:01
|
|
Познающий
Регистрация: 21.11.2009
Сообщений: 77
Провел на форуме:
2482290
Репутация:
29
|
|
мб, из за того что win seven?
|
|
|
|
01.05.2010, 00:02
|
|
Новичок
Регистрация: 25.10.2009
Сообщений: 22
Провел на форуме:
179346
Репутация:
0
|
|
как на xp так и на семёрке не пашет
|
|
|
|
01.05.2010, 00:20
|
|
Познающий
Регистрация: 21.11.2009
Сообщений: 77
Провел на форуме:
2482290
Репутация:
29
|
|
что бы ошибка не появлялась try except
|
|
|
|
01.05.2010, 00:49
|
|
Участник форума
Регистрация: 29.08.2008
Сообщений: 151
Провел на форуме:
1551582
Репутация:
107
|
|
Попробуй:
Код:
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System',true);
|
|
|
|
01.05.2010, 09:06
|
|
Новичок
Регистрация: 25.10.2009
Сообщений: 22
Провел на форуме:
179346
Репутация:
0
|
|
Сообщение от ZdezBilYa
Попробуй:
Код:
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System',true);
от этого не зависит. Знаю только то, что на ошибку влияет сама операционка. Она не пускает редактировать реестр без ведома пользователя. Этого и нужно избежать
Последний раз редактировалось ilyhamas; 01.05.2010 в 09:11..
|
|
|
|
01.05.2010, 09:24
|
|
Постоянный
Регистрация: 29.10.2008
Сообщений: 306
Провел на форуме:
1819761
Репутация:
180
|
|
Учетка с админскими правами?
вот похожая тема - http://forum.antichat.ru/threadnav193358-1-10.html
|
|
|
|
01.05.2010, 09:29
|
|
Новичок
Регистрация: 25.10.2009
Сообщений: 22
Провел на форуме:
179346
Репутация:
0
|
|
Сообщение от M_script_
Учетка с админскими правами?
вот похожая тема - http://forum.antichat.ru/threadnav193358-1-10.html
да с админа.
спасибо посмотрю
|
|
|
|
01.05.2010, 09:35
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
Провел на форуме:
7879791
Репутация:
265
|
|
Вот так не пойдёт?
//Отключить
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;
|
|
|
|
01.05.2010, 11:18
|
|
Постоянный
Регистрация: 13.11.2009
Сообщений: 437
Провел на форуме:
709575
Репутация:
17
|
|
Код:
[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\ |
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
