anderes Programm beenden

[Sprint]

Das schöne an solchen C Programm ist, das oft die Menus als Resource gespeichert sind. Und siehe da, das ExitMenu hat die ID 32.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  ID_EXIT = 32;
var
  AppHWnd: HWND;
begin

  AppHWnd := FindWindow('stunnel 4.07 on Win32', 'stunnel 4.07 on Win32');
  if IsWindow(AppHWnd) then
    SendMessage(AppHWnd, WM_COMMAND, MakeWParam(ID_EXIT, 0), 0);

end;

FindWindow musst du eventuell noch anpassen. Ich weiß ja nicht, welche Version du benutzt.