Prozess killen

[Andreas L.]

Abend,

mit folgenden Code möchte ich einen Prozess beenden:

Delphi-Quellcode:

    

function KillProcess(const ExeName: String): Boolean;
var
  Process: TProcessEntry32;
  h: THandle;
begin
  Result := False;
  Process.dwSize := SizeOf(Process);
  h := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  try
   if Process32First(h, Process) then
    repeat
     if AnsiLowerCase(Process.szExeFile) = AnsiLowerCase(ExeName) then Result := TerminateProcess(OpenProcess(Process_Terminate, False, Process.th32ProcessID), 0);
    until (not Process32Next(h, Process)) or Result;
  finally
   CloseHandle(h);
  end;
end;

//Aufruf:
KillProcess(IncludeTrailingPathDelimiter(GetShellFolder(CSIDL_PROGRAM_FILES)) + 'Windows Sidebar\sidebar.exe');

Es passiert aber nichts, die Anwendung wird nicht beendet. Was mache ich falsch?

[Neutral General]

Hi,

Ich glaube du musst den Exenamen ohne den Pfad angeben:

KillProcess('sidebar.exe'); Gruß
Neutral General

[Apollonius]

Woher stammt dieser Code? Ich bin immer noch der Meinung, dass man Handles nach Benutzung wieder schließen sollte.

[Die Muhkuh]

Du musst nur den ExeNamen übergeben und nicht den Pfad zur Exe.

[Die Muhkuh]

Zitat von Apollonius:

Woher stammt dieser Code? Ich bin immer noch der Meinung, dass man Handles nach Benutzung wieder schließen sollte.

Das Handle wird im Finally-Block per CloseHandle wieder geschlossen.

[Apollonius]

Ich meinte das Prozess-Handle.

[Luckie]

Zitat von Andreas L.:

Es passiert aber nichts, die Anwendung wird nicht beendet. Was mache ich falsch?

Du musst deine Hausaufgaben machen. Die Funktion gibt doch schon einen Wahrheitswert zurück, der sagt, ob es geklappt hat oder nicht. Hat es nicht geklappt, gibt die Funktion False zurück, dann wäre es bestimmt keine schlechte Idee mit GetLastError zu gucken, warum die Funktion fehlgeschlagen ist.