beliebiges programm schließen und wieder neu öffnen

[storm1988]

Also mit der ShellExecute kann man meines Wissend keine Programm beenden (wie sollte dass auch nur aufrung des Pfades funktionieren??).

Es gibt schon noch andere Möglichkeiten ein Programm zu beenden, aber die sind nur noch länger :wink:

[Palando]

Zitat:

Zitat von storm1988

So müsste es gehn:

Delphi-Quellcode:

*code*

//EDIT

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

Warum nicht einfach mit FindWindow arbeiten?

@mr. unbekannt: Es könnte höchstens die Möglichkeit geben den Namen der Ausführbaren Datei rauszufinden (also z.b. notepad.exe) und dann zu überprüfen, ob irgendeinem laufenden Prozess eine Ausführbare Datei namens "notepad.exe" zugrunde liegt. Wie man das aber realisieren würde, weiß ich nicht...

[mr.unbekannt]

bei deinem vorigen beispiel geht es nicht! nochmal ganz einfach mein prob! ich möchte eigentlich ein progrmm schließen und dann sofort wieder starten. ich könnte es auch beim anfang starten. und dann eben nach 15 min wieder schließen und neustarten1 hätte da jmd einen kompletten code für mich. delphi 6 personal!

[storm1988]

Du könntest uns mal posten welches Progamm du eigentlich beenden bzw. starten willst, dann könnten wir dir vielleicht besser helfen. :wink:

[mr.unbekannt]

uhm, es geht um ein normales prog, welches von creative labs ist, rehct alt und für spracheingabe benutzt wird. weiteres kann ich auch net sagen, ich habe nur die verknüpfung da!

[ManuMF]

Zitat:

Zitat von ManuMF

Wenn der Name des Fensters bekannt ist:

Delphi-Quellcode:

var Window : hWnd;

Window := FindWindow(nil, 'Name des Fensters');
if Window <> 0 then PostMessage(Window, wm_close, 1, 1);

Funktioniert aber nicht, wenn das Programm z.B. eine Abfrage beim Beenden anzeigt

Wenn der Dateiname des Programms bekannt ist:

Delphi-Quellcode:

uses TlHelp32;

// Funktion
function KillTask(const AExeName: string): boolean;
var
  p: TProcessEntry32;
  h: THandle;
begin
  Result := false;
  p.dwSize := SizeOf(p);
  h := CreateToolHelp32Snapshot(TH32CS_SnapProcess, 0);
  try
    if Process32First(h, p) then
      repeat
        if AnsiLowerCase(p.szExeFile) = AnsiLowerCase(AExeName) then
          Result := TerminateProcess(OpenProcess(Process_Terminate,
                                                 false,
                                                 p.th32ProcessID),
                                     0);
      until (not Process32Next(h, p)) or Result;
  finally
    CloseHandle(h);
  end;
end;

// Aufruf
if not (KillTask('NameDesProgramms.exe') then
  {z.B.} showmessage('Programm konnte nicht beendet werden.');

Die harte Methode ;-) , von dsdt.info

In deinem Fall:

Delphi-Quellcode:

if (KillTask('NameDesProgramms.exe') then
  ShellExecute(...);

Gruß,
ManuMF

[mr.unbekannt]

danke für die antwort, ich glaueb das habe ich jett kapiert!