| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Прописать свою прогу в Разрешенные (Брандмауер) [D7, Win2k, WinXP]
Dimich1978 © (2006-01-11 12:33:00)Можно ли при запуске моей программы прописать её в "разрешенные" в Брандмауере Windows-ий. Я видел такое с Acronis, при инсталляции он себя прописывает в разрешенные. Как бы и мне такое сотворить? Заранее спасибо. Очень нужно, это единственное что осталось сделать. Это не вирус! Просто хочу избавить себя, да и пользователей тем более от всплытия данного окна, кторое их приведет к умопомешательству.
Dimich1978 (2006-01-11 14:40:00) [1]Сам реализовал так, перед запуском своей проги на которую реагирует брандмауер, запускаю другую, которая регестрирует для брандмауера мое приложение как РАЗРЕШЕННОЕ. Енто единственное пока что пришло в голову.
вот код:
var regini:Tregistry;
begin
if ParamCount<=0 then application.Terminate;
if ParamCount>0 then
if ParamStr(1) = '/i' then
begin
RegIni:=TRegIniFile.Create;
regini.RootKey:=HKEY_LOCAL_MACHINE;
RegIni.OpenKey('SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\AuthorizedApplication s\List',true);
if not regini.ValueExists(getcurrentdir+'\sockmon.exe') then regini.WriteString(getcurrentdir+'\sockmon.exe',getcurrentdir+'\sockmon.exe');
end;
Slym (2006-01-11 14:34:00) [2]может это? -
http://www.xakep.ru/magazine/xa/068/098/1.asp
Eraser (2006-01-11 14:25:00) [3]"Присоединюсь" к вопросу, тоже такое возможно скоро понадобится...
| |
