Карта сайтаСсылкиКонтакты

Как закрыть любое приложение

PDF Печать
Статьи

Есть очень простой и надежный способ закрыть любое приложение (окно). Функции KillHandle в качестве параметра передается дескриптор окна.


procedure KillHandle(hwnd : THandle);
begin
  PostMessage(hwnd, WM_CLOSE, 0, 0);
end;

Пример использования


procedure TForm1.Button1Click(Sender: TObject);
begin
  h:= FindWindow(nil, 'Калькулятор Плюс');
  if h <> 0 then
    KillHandle(h);
end;

Внимание: Эта процедура закрывает любой оконный объект, такой как приложения, формы, поля ввода и т.д. Так, если Вы передаете дескриптор окна, это окно будет закрыто. Сообщение не ждет приложение, чтобы закрыть (оно будет закрыто моментально).

Получить Handle можно при помощи функций EnumWindows и GetWindowLong. Также получить дескриптор приложения можно при помощи Application.Handle.


 

Добавить комментарий


Защитный код
Обновить