Luk et andet program fra Delphi

Hvis du kender vinduets navn eller class kan du bruge:

procedure TForm1.Button1Click(Sender: TObject);
var
  fhwnd : hwnd;
begin
  ShellExecute(Handle, 'open', pchar('notepad.exe'), '', nil, SW_MINIMIZE);

  sleep(5000);

  fhwnd := FindWindow(nil, 'Unavngivet - Notesblok');
  if fhwnd <> 0 then
    PostMessage(fhwnd, WM_CLOSE, 0, 0);
end;

Ellers kan du nok med fordel bruge CREATEPROCESS hvor du får handle direkte.

Sjovt, jeg syntes bestemt at det var den måde jeg selv forgæves har forsøgt at "kvæle" programmet, men det virker nu virker det sgu, så et eller andet må jeg have gjort forkert.

Tak for hjælpen :o)