[AND_REY]

Так попробуй:

Код:

Var
 H: THandle;
begin
 H:= FindWindow(Nil, 'Имя Окна');
 if H <> 0 Then PostMessage(H, WM_CLOSE, 0, 0);
end;