Task beenden

[N30N]

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?