[dmdx]

Всем Добрый день!

Я тут вчера наткнулся на люботытный фрагмент. Короче идея такая запретить закрывать приложение на крестик и сворачивать его. Дык вот поэксперементировав выяснилось. что если написать вот так:

Код:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 CanClose := false;
 ShowWindow(Handle,SW_MINIMIZE);
end;

то мой антивирус воспримент как троянское приложение. конечно если запущеное приложение закрыть на крестик.
если же вот так

Код:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 CanClose := false;
 ShowWindow(Handle,SW_MINIMIZE);
 ShowWindow(Application.Handle,SW_MINIMIZE);
end;

то ничего не произойдет.
и если вот так

Код:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 ShowWindow(Handle,SW_MINIMIZE);
 ShowWindow(Application.Handle,SW_MINIMIZE);
 CanClose := false;
end;

Код:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 ShowWindow(Handle,SW_MINIMIZE);
  CanClose := false;
end;

то тоже ничего не происходит странно, не правда ли!?
интересно если есть какие то мысли у кого нить буду рад услышать почему такое происходит. Может мыть при обработке закрыть сперва приложению запрещают закрывать его а потом производят с ним какие то действия.
И еще одно если не трудно и у кого есть антивирусы проверим отлавливает ли ваш антивирус такой код?