[Delphi]/[Pascal] Задай вопрос, получи ответ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

03.06.2009, 22:12

Maxxxtri23

Познающий

Регистрация: 20.12.2008

Сообщений: 76

Провел на форуме:
432982

Репутация: 6

1)Как запустить чужую прогу от пользователя SYSTEM(в диспетчере так отображает)?
2)Как добавить чужую прогу в исключения стандартного виндового фаервола?
Читал что нужно в HKEY_LOCAL_MACHINE\System\ControlSet001\Services\S haredAccess\Parameters\FirewallPolicy\StandardProf ile\AuthorizedApplications\List добавить строковый параметр с именем - путь к программе и содержанием путь:*:Enabled:путь
Ну чтото неочень понятно, допустим есть прога которая лежить в C:\123.exe, тогда код в делфи будет выглядеть так:

Код:

procedure install(filename,about:string);
var
 key:HKEY;
begin
 RegOpenKeyEx(longword($80000002), 'HKEY_LOCAL_MACHINE\System\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StandardProf ile\AuthorizedApplications\List ',0,$000F003F,Key);//Непонятно что обозначает
 RegSetValueEx(Key, pchar(about), 0,1, pchar(filename), length(filename));//Что в этой строчке надо вписывать?
 RegCloseKey(Key);
end;

Покажите пример с добавлением проги C:\123.exe в исключения фаера, с меня спасибка.

Последний раз редактировалось Maxxxtri23; 03.06.2009 в 22:35..