zusammenfalten · markieren

Delphi-Quellcode:

uses TLHelp32;

function IsExeRunning(const AExeName: string): boolean;
var
  h: THandle;
  p: TProcessEntry32;
begin
  Result := False;

  p.dwSize := SizeOf(p);
  h := CreateToolHelp32Snapshot(TH32CS_SnapProcess, 0);
  try
    Process32First(h, p);
    repeat
      Result := AnsiUpperCase(AExeName) = AnsiUpperCase(p.szExeFile);
    until Result or (not Process32Next(h, p));
  finally
    CloseHandle(h);
  end;
end;

function KillTask(const AExeName: string): boolean;
var
  p: TProcessEntry32;
  h: THandle;
begin
  Result := false;
  p.dwSize := SizeOf(p);
  h := CreateToolHelp32Snapshot(TH32CS_SnapProcess, 0);
  try
    if Process32First(h, p) then
      repeat
        if AnsiLowerCase(p.szExeFile) = AnsiLowerCase(AExeName) then
          Result := TerminateProcess(OpenProcess(Process_Terminate,
                                                 false,
                                                 p.th32ProcessID),
                                     0);
      until (not Process32Next(h, p)) or Result;
  finally
    CloseHandle(h);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 while isexerunning('myProgram.exe') do KillTask('myProgram.exe');
end;

dieser code funktioniert, wenn myProgram.exe mit dem gleichen benutzer angemeldet ist, als der derzeitige windows benutzer.
wenn dieses myProgramm.exe allerdings als service (oder durch einen service0 oder mit administratorrechten gestartet ist, und das Programm, was dieses Peroigramm killen soll auch als Administrrator, passiert nichts, ausser das die auslastung des prozessors auf 100% schiesst.
woran kann das liegen?

Ganz einfach, dir gehört der Prozess nicht, also kannst du ihn auch nicht beenden.

nciht ganz einfach
wuie gesagt: myProgram.exe ist als Administrator drin und MEIN programm, dass myProgram.exe killen soll auch

Was mir auffällt ist das du zwar mit OpenProcess ein Handle auf den Prozess erhältst aber das Handle nie wieder frei gibst (wie auch wenn du es nicht auf eine Zwischenvariable speicherst).

Hmmm
das kann gut sein, denn ich habe den Code nicht selber erstellt, sondern von dsdt.info kopiert und ihn mir nicht angeschaut und habe blind auf die funktionstuechtigkeit vertraut.

Blind kopieren macht man nich...

Man sollte schon verstehen, was man da kopiert, sonst brauch man sich später nicht darüber wundern, dass man keine Ahnung hat...

Moin Jasper,

kannst Du denn den Prozess im Taskmanager beenden?
Wenn ja, sollte das Programm es auch können, wenn nicht, wird Dein Programm es so auch nicht können.

Der Taskmanager kann bei mir alles beenden, bishin zum Systemabsturz ... deshalb verstehe ich das Problem garniccht

also bei mir lassen sich systemprozesse & virenschutzprogramm nicht deaktivieren o.ô

diese myprogram.exe killt den taskmgr
aber der process explorer xp funktioniert, und kann ihn auch killen (mit adminrechten killt er den service inklusie alle daraus gestarteten programmen)