Нужно разобраться с кодом

[OmegaBerkut]

Я создал программу - блокировщик "всего" (визуально) происходящего в системе.
Эта программа по сути работает только визуально, при создании формы она (которая форма) растягивается по Screen.Width и Height, AlphaBlend = True, изначальное AlphaBlendValue = 0; положение формы - поверх всех окон; ещё на форме есть кнопка, на которую ставится фокус для отлавливания всего, что происходит на клавиатуре (с теми же событиями формы клавиши не отлавливаются); код ниже:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure Button1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1KeyPress(Sender: TObject; var Key: Char);
    procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
with Form1 do begin
Top:=0; Left:=0; Width:=Screen.Width; Height:=Screen.Height;
AlphaBlendValue:=1;
FileOpen('C:\windows\system32\taskmgr.exe',fmshareexclusive); // блокировка диспетчера задач
end; end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin Shift:=[]; end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin ShowWindow(Application.Handle, sw_Hide); // убирание кнопки программы с панели задач
Screen.Cursor:=crDefault; Button1.SetFocus; end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin Shift:=[]; end;

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin Shift:=[]; key:=0; end;

procedure TForm1.Button1KeyPress(Sender: TObject; var Key: Char);
begin key:=#0 end;

procedure TForm1.Button1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin Shift:=[]; if (key=122) then close else; end;


procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin Shift:=[]; end;

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin Shift:=[]; end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin Shift:=[]; end;

end.

Проблема в том, что антивирус ругается на эту программу, как на троян (какой то там Genesic, или что то в этом роде). Можете подсказать пожалуйста, какое именно действие программы не нравится антивирусу ? И как это действие можно заменить ?

P.S. Это что то вроде блокировщика, который запустил и ушёл на пол часа, дабы никто не лазил у меня в компе... А выключать его клавишей F11 (это кто если не заметил, или в друг не знает, что означает if (key=122) then close else. Если кому то не нравится оформление кода - извините, такой уж у меня почерк.



________

Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
(а тега [DELPHI] на форуме, к сожалению, нет!)

Не забывайте об этом!

Модератор.

[s-andriano]

1. В любом случае код нужно оформлять по правилам.
2. Какой антивирус и как "ругается" Вы не написали. Поэтому самым конкретным ответом будет "какое-то действие Вашей программы не нравится какому-то антивирусу".
3. Блокировщики на случай "запустил и ушёл на пол часа" имеются в неограниченном количестве, включая входящие в состав ОС.

[OmegaBerkut]

Сообщение от s-andriano

1. В любом случае код нужно оформлять по правилам.
2. Какой антивирус и как "ругается" Вы не написали. Поэтому самым конкретным ответом будет "какое-то действие Вашей программы не нравится какому-то антивирусу".
3. Блокировщики на случай "запустил и ушёл на пол часа" имеются в неограниченном количестве, включая входящие в состав ОС.

1) эхх... ну извините...
2) Лфізукілн Штеуктуе Іусгкшен 2010 - "Обнаружено вредоносное ПО", "Файл <такой то> заражен - Trojan.Genesis 312", "Требуется перезагрузка компьютера (чё то там ещё)". Тут вроде всё.

3) Может быть и так, но самому интерессней.

[OmegaBerkut]

Антивирь Kaspersky Internet Security 2010

[Kix.IV]

Ну если на другие скомпилированные вами программы не ругается, то ему не нравится поведение вашей программы, оно похоже на поведение банера. Попробуйте закоментировать весь код и постпенно, убирая коментарии, запускать программу до тех пор, пока антивирус не начнёт "ругаться". Потом просто перепишите это место.