beliebiges programm schließen und wieder neu öffnen

[storm1988]

So müsste es gehn:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Handle: HWND;
begin
    Handle:=GetWindow(GetDesktopWindow(),GW_CHILD);
    while (Handle<>0) do
    begin
    if (IsMainAppWindow(Handle) and (AnsiContainsStr(GetWindowCaption(Handle),NAME DEINES PROGRAMMS))) then
    begin

      SendMessage(handle, WM_CLOSE, 0, 0);
      break;
    end;
    Handle:=GetWindow(Handle,GW_HWNDNEXT);
    end;
end;

//EDIT

Du musst aber noch diese Units hinzufügen: JclSysInfo und StrUtils
Wobei die JclSysInfo bei den Jedis dabei ist!!