Закрыть другую программу

[Shouldercannon]

Нашёл код для поиска и закрытия программы

PostMessage(FindWindow(nil, 'PPC'), WM_QUIT, 0, 0);

Но есть одна проблема если окно PPC не найдено, то программа закрывает саму себя. Как исправить?

[NieL]

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

Нашёл код для поиска и закрытия программы

PostMessage(FindWindow(nil, 'PPC'), WM_QUIT, 0, 0);

Но есть одна проблема если окно PPC не найдено, то программа закрывает саму себя. Как исправить?

procedure TForm1.Button1Click(Sender: TObject);
var
  H: HWND;
begin
 H := FindWindow(nil, 'PPC');
 if H > 0 then
   PostMessage(H, WM_QUIT, 0, 0);
end;

[Gorychev]

Ну или так:

if FindWindow(nil, 'PPC') <> 0 then
postmessage(FindWindow(nil, 'PPC'),wm_quit,0,0);

FindWindow возвращает ноль если окна нет

[BOBAH13]

Это не нормальное закрытие вы рубите проге руки и она падает. По сути вы должны слать WM_CLOSE. Если требуется все таки нормальное завершение программы

[Shouldercannon]

Косяк. WM_CLOSE закрывает проги которые не сидят в трее. WM_QUIT их хорошо закрывает, но это зверски. Какие ещё есть способы конкретно за закрытие программы сидящей в трее?