Запрет на закрытие чужого приложения

[S@fer]

Добрый день.
Собсвенно сабж. Как запретить закрытие чужого приложения?

procedure TForm1.Button1Click(Sender: TObject);
var
hwndHandle: THANDLE;
hMenuHandle: HMENU;
iPos: Integer;

begin
hwndHandle := FindWindow(nil, '1.txt - Блокнот');
if (hwndHandle <> 0) then
begin
hMenuHandle := GetSystemMenu(hwndHandle, FALSE);
DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
iPos := GetMenuItemCount(hMenuHandle);
Dec(iPos);
if iPos > -1 then
DeleteMenu(hMenuHandle, iPos, MF_BYPOSITION);
end;

end;

Данный код блокирует [X], и убирает из контекстного меню "Закрыть Alt+F4".
Но программу можно закрыть к примеру из Меню программы "Файл-->Выход", или из диспетчера.
Как можно перехватить событие закрытия программы и отменить его?

[lennon]

Сообщение от S@fer

Добрый день.
Как можно перехватить событие закрытия программы и отменить его?

Есть такая штука, специально было придумано микрософтом - Хуки. Перехъватываешь вызов функции которая завершает процессы, смотришь шо она закрывает возвращаешь другой результат, но сложнее сделать чем сказать подбробности про хуки в поисковике. самому такое ненужно было делать

[rpy3uH]

Сообщение от lennon

Есть такая штука, специально было придумано микрософтом - Хуки. Перехъватываешь вызов функции которая завершает процессы, смотришь шо она закрывает возвращаешь другой результат

через стандартный механизм хуков это нельзя сделать, это называется перехватом API функций. А если использовать механизм хуков надо пререхватывать сообщения WM_CLOSE и WM_DESTROY