Как закрыть чужое приложение

Для того, чтобы программно закрыть чужое приложение, нужно отправить этому приложению сообщение WM_QUIT. В качестве параметра передается заголовок чужого окна, которое нужно закрыть. Ниже приведена функция KillAnother, которая реализует эту возможность:

function KillAnother(const sTitle: PChar): boolean;
var
  h: THandle;
begin
  h:= FindWindow(nil, sTitle);
  Result:= PostMessage(h, WM_QUIT, 0, 0);
end;
Использование:
procedure TForm1.btnKillClick(Sender: TObject);
begin
  KillAnother('Untitled - Notepad');
end;

Вот и всё, Удачи!


  1. alkanna
    alkanna a month ago
    Buy Cheap Celebrex Online Inimeneidigh [url=https://xbuycheapcialiss.com/]buy real cialis online[/url] diunny Kamagra Hipertension Pulmonar
Отменить.