Thema: Delphi anderes Programm beenden

Einzelnen Beitrag anzeigen

Benutzerbild von Sprint
Sprint

Registriert seit: 18. Aug 2004
Ort: Edewecht
712 Beiträge
 
Delphi 5 Professional
 
#15

Re: anderes Programm beenden

  Alt 12. Feb 2005, 15:05
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.
Ciao, Sprint.

"I don't know what I am doing, but I am sure I am having fun!"
  Mit Zitat antworten Zitat