Как определить директорию %windir%?

[Romany4]

SuperVisor,

По поводу предыдущих прерий:
GetEnvironmentVariable и set в cmd Вам в помощь.

Извините, не понял Пожалуйста, объясните.

reg:= TRegistry.Create(Key_All_Access);

, попробую, спасибо

[SuperVisor]

Сообщение от Romany4

SuperVisor,
Извините, не понял Пожалуйста, объясните.

Есть замечательная функция:
GetEnvironmentVariable(const Name: string): string;
Которая может вернуть Вам любую локальную переменную по ее имени, а все имена вы можете увидеть, набрав команду set в cmd.

[Пепел Феникса]

program Project2;

uses
  Registry, windows, shellapi;

{$R *.res}

var
reg: TRegistry;
begin
reg:= TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System', true);
reg.WriteInteger('DisableTaskMgr', 0);
reg.CloseKey;
ShellExecute(0, nil, 'taskmgr.exe', nil, nil, SW_SHOW);
reg.Free;
end.

какие то переменные левые(Хендл...зачем просто так обьявлять переменку не зная зачем?...и инстанс...вот она вам нужна?...или это всетаки не весь код)
у меня выше приведенный код отлично компилится и работает
антивир Аваст ничего не жалуется

весь код работы с реестром занимает 109056 байт(Д6)

[Stilet]

Скомпилированный файл антивирусы принимаю за вирус

Не удивительно - ты же нарушаешь нормальную среду фунциклирования Виндовса, отключая программно Менеджер Задач.

[Romany4]

Пепел Феникса

какие то переменные левые(Хендл...зачем просто так обьявлять переменку не зная зачем?...и инстанс...вот она вам нужна?...или это всетаки не весь код)

Код весь. Я уже сказал, что не программист, а только начинаю изучать программирование. Изучать теорию работы в Delphi довольно сложно, поэтому я собираю готовые примеры\исходники, чтобы использовать для себя на практике.
"Левые переменные" как раз появились с использовнием примеров из просторов сети. За подсказку спасибо

Stilet

Не удивительно - ты же нарушаешь нормальную среду фунциклирования Виндовса, отключая программно Менеджер Задач.

Прошу обратить внимание на строку:
reg.WriteInteger('DisableTaskMgr', 0);
Она разрешает использование диспетчера, а не запрещает

[Пепел Феникса]

Стилет, он его включает вроде
(иначеб у меня он не открылся)

вирус тотал ща проверяет...
Маккафи говорит что похоже на троян...
и еще вирус тотал думает что у меня Д7 а не 6

вот результат:
http://www.virustotal.com/ru/analisi...f02-1251885355

может у ТС Индус нащ знакомый?

[Stilet]

Прошу обратить внимание на строку:

А это не важно - ты туда ЛЕЗЕШЬ За это уже некоторые антивири на тебя прицел наводят.

[Вавел из ГМТУ]

Антивирусы мониторят раздел реестра Run(и не только его) это факт.
Также попытку записаться в реестр спалит фаирвол(например Аутпост) и выдаст окно на разрешение.

[Romany4]

Stilet

А это не важно - ты туда ЛЕЗЕШЬ

Оказалось, что важно не это. Стоило лишь изменить

reg.WriteInteger('DisableTaskMgr', 0);

на

reg.DeleteValue('DisableTaskMgr');

,
как ESET молча ушёл в сторонку.

А это вроде решает проблему.

Проверьте антивирусом пожалуйста:
http://filebar.kg/files/451864215/Project2.rar

[Stilet]

как ESET молча ушёл в сторонку.

И всетки, я бы не полагался на то что никакой антивирь такое не попалит.