anderes Programm beenden

[Sprint]

Ist das immer das selbe Programm das zu beenden willst? Gibt es ein PopupMenu mit einem "Beenden" Menü`? Dann könnte man auch eine Tastenkombination schicken.

[Gambit]

Ja, es ist immer das selbe Programm. Ist ein SSL-Wrapper, den ich einsetzte um verschlüsselt an einen Datenbankserver zu senden. Nach Aufruf erscheint das Teil auch nur im Tray. Es hat nur ein Kontextmenu zum Beenden...ich wüßte nicht, was für eine Tastenkombination ich senden sollte, das Kontextmenu hat drei Menupunkte wobei der unterste "close" ist...korrektur, der Menupunkt ist "exit"...

[Sprint]

Um welches Programm handelt es sich? Stunnel?

[Gambit]

ganz genau! Ich habe auch den Source vorliegen aber mit C kenn ich mich nicht aus und ich habe auch keinen Compiler. Habe aber jetzt rausgefunden, dass man das Programm beenden kann über das PopUpMenu und dann mit der Taste "x" der Tastatur...kann man da was machen?

Gruß

Gambit

[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.

[Gambit]

Genial, funzt perfekt! Danke!!
Warum ist FindWindow eigentlich nicht in der Delphi Hilfe zu finden? Bei mir zumindest nicht? Was du da an Parametern übergibst ist doch der Titel des Fensters. Aber dank diesen Forums konnte ich es dann finden. Damit müsste es doch auch möglich sein, einem bestimmten Programm ferngesteuert den Focus zu geben, oder? Könnte ich gut für Premiere Pro von Adobe gebrauchen...

Aber nochmals vielen Dank!

Gambit

[Luckie]

Weil FindWindow nichts mit der Sprache Delphi zu tun hat, sondern eine Windows API Funktion ist.

[Gambit]

naja, andere API-Funktionen werden ja auch erklärt...

[Luckie]

Welche?

[Gambit]

CreateProcess?