beliebiges programm schließen und wieder neu öffnen

[mr.unbekannt]

hi@all! ich bräuchte mal schnell nen source code, um ein beliebiges offenes programm zu schließen und dnan wieder neu zu starten! kann mir da mal jmd schnell helfen!

mfg mr.unbekannt

[storm1988]

Um ein Programm zu öffnen verwendest du einfach die API funktion Shellexecute

Bsp:

Delphi-Quellcode:

ShellExecute(Handle, 'open',DEIN PROGRAMM, nil, nil, SW_Show);

Wie man ein beliebiges Programm schließt weis ich auf anhieb jedoch nicht :?

[ichbins]

vielleicht kannst du mit der Unit von Luckie was anfangen:

[siehe download]

ich habs schon fertiggebracht damit eine art taskmanager zu proggen.

[mr.unbekannt]

und iwe eisht es mit dem shcließen aus?

ShellExecute(Handle, 'close',DEIN PROGRAMM, nil, nil, SW_Show);

klappt net!

[Palando]

Delphi-Quellcode:

SendMessage(Handle.desProgramms, WM_SYSCOMMAND, SC_CLOSE, 0);

Für weitere Möglichkeiten: WM_SYSCOMMAND

[storm1988]

Also ich hab jetzt nachgeschaut und folgendes gefunden:

Delphi-Quellcode:

Sendmessage( Handle ,WM_Close,0,0)

[ichbins]

mit "meiner" Unit kannste ganz gewalttätig gleich den Prozess aus dem Arbeitsspeicher löschen, ohne ihm noch Zeit für Userfragen und on-close-events zu lassen. musste aber erst mal durchblicken.

[mr.unbekannt]

dnake erstmal für die antwort, teste es schnell! uhm naja ich habe ein beliebieges prog offen, und ich habe den link dafür da. ich will es erst schließen und dann wieder starten!

habe es noch nicht zum laufen gekriegt, dass starten geht, schlißen noch nicht, hat da jmd ne funktion parat?

[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!!

[mr.unbekannt]

hmm geht das net ganz einfach über die shellexecute ein prog zu schlißen was den unden pfad hat?