durch dll den eigenen prozess beenden

[k4ni]

hey leute,

Ich hab ein problem.
Also ich hab ein programm das diese funktion aus einer(meiner) dll lädt:

Delphi-Quellcode:

procedure closead; export;
begin
h := FindWindow(nil, 'ad.');
if h <> 0 then PostMessage(h, WM_CLOSE, 0, 0);
end;

Wie kann ich hinzufügen zu der if frage das es den prozess der die dll aufruft beendet ?

edit: 2. frage:

Wie kann ich es in einem normalen delphi project machen, dass wenn ein bestimmter process beendet wurde dass es den eigennen auch beendet?

[sirius]

1. Entweder du übergibst dein Handle mit an die DLL. Dadurch entfällt die Findwindow-funktion, weil du ja nicht erst das Handle suchen musst. Oder du übergibst einen PChar mit dem Titel deines Hauptfensters an die DLL und suchst mit findwindow nach dem Fenster.


2. (Neue Frage, neuer Thread)
Prinzip: Die Close-Message des anderen Prozesses abfangen (siehe: Hook; subclassing).