Programm (Prozessor) in dem Task-Manager beenden

[Delphiturbo]

Zitat von Nuclear-Ping:

Das mal probiert? http://www.delphi3000.com/articles/article_4324.asp?SK=

Und dein Edit hat rein GARNICHTS mit dem Thema zu tun.

ja schon ausprobiert. Nichts gebracht
Es erscheint keine Fehlermeldung !

Delphi-Quellcode:

function KillTask(ExeFileName: string): Integer;
const
  PROCESS_TERMINATE = $0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  Result := 0;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  while Integer(ContinueLoop) <> 0 do  begin
    if (
         (UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(ExeFileName)) or
         (UpperCase(FProcessEntry32.szExeFile) = UpperCase(ExeFileName))
        ) then
      Result :=
        Integer(
          TerminateProcess(
            OpenProcess(
              PROCESS_TERMINATE,
              BOOL(0),
              FProcessEntry32.th32ProcessID
            ),
            0
          )
        );
     ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
KillTask('alg.exe');
end;

Einige Programme in der Liste werden nicht von einem anderen User verwendet, sondern Programme, die z.B. bei Windows Start, starten und so weiter