Programm beenden

[Moyyer]

Bei "CloseHandle(hProcSnap);" kommt die Fehlermeldung, das hProcSnap ein undefinierter Bezeichner ist.

Aber ansonsten klingt es gut. :lol:

[RomanK]

Hoi, so wie ich das sehe hat Luckie da hProcess mit hProcSnap verwechselt ...
Hier noch mal der veränderte Code.

Delphi-Quellcode:

{******************************************************************************} 
{**                                                                          **} 
{** ProzessID an Hand der Exe-Datei ermittlen                                **} 
{**                                                                          **} 
{******************************************************************************} 
function GetProcessID(sProcName: String): Integer; 
var 
  hProcSnap: THandle; 
  pe32: TProcessEntry32; 
begin 
  result := -1; 
  hProcSnap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0); 
  if hProcSnap = INVALID_HANDLE_VALUE then exit; 

  pe32.dwSize := SizeOf(ProcessEntry32); 

  { wenn es geklappt hat } 
  if Process32First(hProcSnap, pe32) = true then 
    { und los geht's: Prozess suchen} 
    while Process32Next(hProcSnap, pe32) = true do 
    begin 
      if pos(sProcName, pe32.szExeFile) <> 0then 
        result := pe32.th32ProcessID; 
    end; 
CloseHandle(hProcSnap); 
end; 

{******************************************************************************} 
{**                                                                          **} 
{** Prozess beenden                                                          **} 
{**                                                                          **} 
{******************************************************************************} 
procedure KillProcess(dwProcID: DWORD); 
var 
  hProcess : Cardinal; 
  dw       : DWORD; 
begin 
  { open the process and store the process-handle } 
  hProcess := OpenProcess(SYNCHRONIZE or PROCESS_TERMINATE, False, dwProcID); 
  { kill it } 
  TerminateProcess(hProcess, 0); 
  { TerminateProcess returns immediately, so wie have to verify the result via 
    WaitfForSingleObject } 
  dw := WaitForSingleObject(hProcess, 5000); 
  case dw of 
    { everythings's all right, we killed the process } 
    WAIT_OBJECT_0: Messagebox(Application.Handle, 'Prozess wurde beendet.', 'Prozess beenden', 
      MB_ICONINFORMATION); 
    { process could not be terminated after 5 seconds } 
    WAIT_TIMEOUT: 
    begin 
      Messagebox(Application.Handle, 'Prozess konnte nicht innerhalb von 5 Sekunden beendet werden.', 
        'Prozess beenden', MB_ICONSTOP); 
      CloseHandle(hProcess); 
      exit; 
    end; 
    { error in calling WaitForSingleObject } 
    WAIT_FAILED: 
    begin 
      RaiseLastOSError; 
      CloseHandle(hProcess); 
      exit; 
    end; 
  end; 
  CloseHandle(hProcess); 
  end;

PS: Kanns immer noch ned testen ...

[Moyyer]

Bei mir hat's funktioniert. Danke! :dancer:
Ich bin noch bei einem anderen forum, aber da kriegt man immer nur dumme Antworten. Hier sind alle viel netter111

[RomanK]

Hoi,
schön das wir dir helfen konnten ...

[Moyyer]

Eine Frage hab ich aber noch. Wie kann ich wenn mein Programm schon einmal gestartet ist das alte killen und das neue verwenden?

[RomanK]

Also wie man nur eine Instanz laufen lassen kann steht in der Library hier.

[Moyyer]

Das mit dem nicht 2x starten ist klar.
Mein eigendliches anliegen ist:

Ich öffne das 1. Programm(Audioplayer) mit Paramstr(...). Also eine MP3.
Wenn ich eine andere MP3 auch so öffne sagt er mir,(so soll es auch sein) dass das Programm schon einmal offen ist.

Nun will ich aber, dass das 1. Programm die Parameter erhält (abspielt) die sonst das 2.Programm (das was geschlossen wurde) erhalten hätte.

Ich hoffe ihr versteht, was ich meine!!!

[Stanlay Hanks]

Du müsstest halt, bevor du eine neue Datei aufmachst, den 1. Player auch beenden. Dann gibt es kein zweites Audioplayer Fenster mehr, sondern nur immer 1, weil das alte ja immer beendet wird.

[Moyyer]

und wie soll ich das machen außer auf das X zu klicken :?:

[Christian Seehase]

Moin Moyyer,

spielst Du die Datei in Deinem Programm ab, oder mit einem externen?