Ich hab dieses mal gesucht und bin auch fündig geworden
Hab diesen Thread gefunden:
Thread
Jedoch komme ich damit nicht zurecht.
Sein Code war:
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;
Jedoch erzeugt dieser bei mir nen Haufen Fehlermeldungen, wahrschienlich ist er an sein eigenes Programm angepasst. Functions setze ich doch unter die implemantation richtig?