Проблема

[D_E_N]

Всем привет. столкнулся с такой проблемой после добавления в прогу функции определения папки win и записи проги в автозагрузку антивирь начал громко топать и определять мою прожку как троянчик и помещать на карантин. использовал функцию такого вида

Function SysDir : String;
Var
Windir : Array [0..MAX_PATH] Of Char;
Begin
GetWindowsDirectory(WinDir, Sizeof(Windir));
Result := WinDir;
End;

запись в реестр

 Reg := TRegistry.Create;
      Reg.RootKey:= HKEY_LOCAL_MACHINE;
       with Reg do
        begin
OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', true);
WriteString('NET',dir+'\net.exe');
CloseKey;
            begin
Reg.Free;
        end;

как исправить проблему?

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

И как он обзывает твою программу? Может он просто сообщает что идёт ппытка записать в раздел реестра?

Поизменяй имена переменых, имена функция, поменяй их местами и пр.

[raxp]

в топку такой антивирь
... не пробовали в доверенные добавить

[D_E_N]

Сообщение от Вавел из ГМТУ

И как он обзывает твою программу? Может он просто сообщает что идёт ппытка записать в раздел реестра?

Поизменяй имена переменых, имена функция, поменяй их местами и пр.

сообщает HEUR:trojan.win32.generic....

[spamer]

Интересно ,а что это за такой антивирус умный?

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

Методом тыка коментируй процедуры/функции и смотри что говорит антивирь. Как только находишь проблемную, то ищи другое решение.

Это он начал ругаться при расширении функционала или всегда так материл прогу?

[D_E_N]

Вавел из ГМТУ изза расширении функционала. spamer KIS 2010...... а nod говорит newheur_pe вирус.....

[D_E_N]

вроде вычислил не нравится ему эти строчки

           begin

         Reg.Free;
      end;

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

Ну знач поищи другии функции записи в реестр.