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?