Hallo,
ich habe ein Problem beim Beenden eines Programmes von welchen ich dem Pfad habe. Es geht dabei um WinTV-Nexus, weis nicht ob das jemand kennt. Mit folgenden Code beende ich das Programm, Problem ist aber, das der Ton noch zu hören ist obwohl das Programm als Prozess nicht weiterläuft:
Delphi-Quellcode:
function KillProcess(const ExeName: String): Boolean;
var
Prozess : TProcessEntry32;
h : THandle;
begin
Result := False;
Prozess.dwSize := SizeOf(Prozess);
h := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
try
If Process32First(h, Prozess) then
Repeat
If AnsiLowerCase(Prozess.szExeFile) = AnsiLowerCase(ExeName) then Result := TerminateProcess(OpenProcess(Process_Terminate, False, Prozess.th32ProcessID), 0);
Until (Not Process32Next(h, Prozess)) or Result;
finally
CloseHandle(h);
end;
end;
Kann mir da jemand helfen?
Gruß
Mazel