Fenster mit Findwindow Schliessen

[Natcree]

Hallo ich möcht mit dem Folgenden Code den Adobe Reader Schliessen

Delphi-Quellcode:

var
hWnd:Thandle;
begin
hWnd:=FindWindow(nil,'Adobe Reader');
if hWnd <> 0 then
Sendmessage(hWnd, WM_CLOSE, 0, 0);
end;

Das macht er auch aber er schliesst mein Programm auch.
Was kann ich da machen???