[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;

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

[dmdx]

Вот скриншот

[Vayrus]

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

[Vayrus]

Проверить не могу, но поробуй так:

Код:

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

[Yurk@]

У мя НОД32 ниче не нашел!

[:S.p.a.m.]

KIS 7 тоже молчит (для чайников это Kaspersky)