Prozess beenden funktioniert nicht - Alternative?

[simlei]

Hi!
Mein Problem ist, dass ich versuche, mit einem Programm Prozesse zu beenden... Und hat auch alles mit dem Code aus dsdt.info geklappt, aaber seit Patch 2.0.6 (imho) klappt das mit WoW.exe nicht mehr :/ .
Der Code ist folgender:

Delphi-Quellcode:

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;

Versuche ich den Prozess mit dem Taskmanager zu killen klappt das einwandfrei, aber eben mit dieser Routine nicht. Ich kann mich jetzt irren, aber ist der taskmanager nicht auch ein ganz normales Programm? :)
Also muss es ja auch irgendwie klappen, den Prozess zu beenden, mit firefox.exe zB hats auch wunderbar geklappt u.a.

Idee, anyone?
danke schonmal!

-- Edith möchte euch noch sagen, dass World of Warcraft sich auch nicht als Service registriert hat...

[Luckie]

Was sagt den GetLastError?

[Christian Seehase]

Moin simlei,

Du solltest auch mal die Routine etwas "entzerren".
Dadurch, dass Du OpenProcess direkt in das TerminateProcess gelegt hast, kannst Du gar nicht prüfen, ob OpenProcess überhaupt funktioniert hat.
Ausserdem solltest Du das Handle, dass OpenProcess, im Erfolgsfalle, zurückgibt wieder mit CloseHandle freigeben.
Dass ggf. der Prozess dazu nicht mehr existiert spielt für die Resourcen Deines Programmes keine Rolle.

Der Taskmanager ist zwar ein Programm, dass aber nicht im Shell-, sondern im Systemkontext gestartet wird. Es ist ein Unterprozess der Winlogon.exe (System\Session Manager Subsystem\Winlogon)

Das Blizzard an solchen Zugriffsmöglichkeiten dreht ist mir schon bei einem Patch zu Diablo 2 aufgefallen.
Zuerst konnte ich problemlos den Adressraum lesen und schreiben, nach einem Patch ging das auf einmal nicht mehr, so dass ich diese Aktionen über einen Service mit Systemrechten erledigen musste ;-)

[simlei]

hm...
Wie kann ich so ein Programm als Servce registrieren?

€: GetLastError als Integer liefert 18...

[Luckie]

Na dann guck mal im MSDN nach, was das bedeutet oder lass es dir im Klartext mit SystemErrorMessage ausgeben.

[simlei]

hm hmhmhm

interessant: Es wird (Mit SysErrorMessage) für den Fehler bei Killtask mit WoW ausgegeben. "Keine weiteren Dateien mehr vorhanden". Wenn aber zB auch der Firefox beendet werden soll, er läuft aber gerade garnicht, kommt dort derselbe Fehler.
Versteckt sich WoW jetzt vor der KillTask-Funktion, und wie kann ich das beheben? (zB mit registrierung als Dienst?)
Wenn ja, wie?

[Christian Seehase]

Moin simlei,

prüfe doch erst einmal, ob OpenProcess überhaupt korrekt funktioniert.

[DP-Maintenance]

Dieses Thema wurde von "Christian Seehase" von "VCL / WinForms / Controls" nach "Windows API / MS.NET Framework API" verschoben.
Doch wohl eher ein API-Problem

[simlei]

Ich habe jetzt die Funktion "entzerrt" - folgendermaßen:

Delphi-Quellcode:

function KillTask(const AExeName: string): boolean;
var
  p: TProcessEntry32;
  h: THandle;
  Process: Cardinal;
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
        begin
          Process := OpenProcess(Process_Terminate, false, p.th32ProcessID);
          Result := TerminateProcess(Process, 0);
        end;
      until (not Process32Next(h, p)) or Result;
  finally
    CloseHandle(h);
  end;
end;

Ich habe p dann mal überwacht, als AExeName 'WoW.exe' war...
Dabei ist das Programm garnicht bis zu OpenProcess gekommen, da in diese If-Anweisung garnicht gesprungen wurde:

Delphi-Quellcode:

if AnsiLowerCase(p.szExeFile) = AnsiLowerCase(AExeName) then
        begin
          Process := OpenProcess(Process_Terminate, false, p.th32ProcessID);
          Result := TerminateProcess(Process, 0);
        end;

Dann hab ich mir mal p angeschaut... p wurde mit

(296, 0, 0, 0, 0, 1, 0, 0, 0, ('[', 'S', 'y', 's', 't', 'e', 'm', ' ', 'P', 'r', 'o', 'c', 'e', 's', 's', ']', #0, 'û', 'ý', '', #24, #0, #0, #0, 'Ð', #7, #0, #0, 'X', 'ú', #18, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, '<', #0, '>', #0, #0, 'ü', 'ý', '', 't', #7, #0, #0, '„', 'ú', #18, #0, 'Ê', '/', '�', '|', #3, #0, #31, #0, #0, #0, #0, #0, #0, 'ü', 'ý', '', 'Ø', 'ú', #18, #0, #30, #0, #31, #0, 'à', 'ú', #18, #0, 'œ', 'ú', #18, #0, '’', 'Õ', '‘', '|', '»', '›', '€', '|', 't', #7, #0, #0, #12, 'ý', #18, #0, 'Ù', #21, 'j', 't', 't', #7, #0, #0, ' ', '.', #21, #0, '¥', 'ö', 'k', 't', '|', #6, #16, #0, #2, #0, #0, #0, '£', 'À', #0, #0, 'x', 'â', #20, #0, 'x', 'â', #20, #0, #2, #0, #0, #0, '(', #0, 'ì', #0, #0, #0, #0, #0, 'x', 'â', #20, #0, 'È', 'q', #20, #0, '(', 'á', #20, #0, 'Ð', #13, #21, #0, #0, #0, #0, #0, 'à', 'ú', #18, #0, 'M', 'S', 'C', 'T', 'F', '.', 'S', 'e', 'n', 'd', 'R', 'e', 'c', 'e', 'i', 'v', 'e', '.', 'E', 'v', 'e', 'n', 't', '.', 'I', 'A', 'O', '.', 'I', 'C', #0, #0, #1, #0, #0, #0, 'Ð', 'ú', #18, #0, 'p', 'ý', #18, #0, 'p', 'ý', #18, #0, '”', #4, 'Ô', 'w', #8, 'ˆ', 'Ñ', 'w', 'ÿ', 'ÿ', 'ÿ', 'ÿ', #16, #0, #0, #0, '°', '3', 'ˆ', '|', 'l', 'û', #18, #0, #0, #0, #0, #0, 'Æ', 'Z', 'A', #0))

angezeigt...
Dabei ist p.szExeFile dann gleich

('[', 'S', 'y', 's', 't', 'e', 'm', ' ', 'P', 'r', 'o', 'c', 'e', 's', 's', ']', #0, 'û', 'ý', '', #24, #0, #0, #0, 'Ð', #7, #0, #0, 'X', 'ú', #18, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, '<', #0, '>', #0, #0, 'ü', 'ý', '', 't', #7, #0, #0, '„', 'ú', #18, #0, 'Ê', '/', '�', '|', #3, #0, #31, #0, #0, #0, #0, #0, #0, 'ü', 'ý', '', 'Ø', 'ú', #18, #0, #30, #0, #31, #0, 'à', 'ú', #18, #0, 'œ', 'ú', #18, #0, '’', 'Õ', '‘', '|', '»', '›', '€', '|', 't', #7, #0, #0, #12, 'ý', #18, #0, 'Ù', #21, 'j', 't', 't', #7, #0, #0, ' ', '.', #21, #0, '¥', 'ö', 'k', 't', '|', #6, #16, #0, #2, #0, #0, #0, '£', 'À', #0, #0, 'x', 'â', #20, #0, 'x', 'â', #20, #0, #2, #0, #0, #0, '(', #0, 'ì', #0, #0, #0, #0, #0, 'x', 'â', #20, #0, 'È', 'q', #20, #0, '(', 'á', #20, #0, 'Ð', #13, #21, #0, #0, #0, #0, #0, 'à', 'ú', #18, #0, 'M', 'S', 'C', 'T', 'F', '.', 'S', 'e', 'n', 'd', 'R', 'e', 'c', 'e', 'i', 'v', 'e', '.', 'E', 'v', 'e', 'n', 't', '.', 'I', 'A', 'O', '.', 'I', 'C', #0, #0, #1, #0, #0, #0, 'Ð', 'ú', #18, #0, 'p', 'ý', #18, #0, 'p', 'ý', #18, #0, '”', #4, 'Ô', 'w', #8, 'ˆ', 'Ñ', 'w', 'ÿ', 'ÿ', 'ÿ', 'ÿ', #16, #0, #0, #0, '°', '3', 'ˆ', '|', 'l', 'û', #18, #0, #0, #0, #0, #0, 'Æ', 'Z', 'A', #0)

und natürlich wird in die Anweisungen nicht gesprungen... Frage ist nun natürlich, warum es beim Firefox zB funktioniert, aber bei WoW.exe nicht? p.szExeFile war beim firefox ja auch gleich dem exe-Namen...

Ich bin sehr angewiesen auf eine Lösung; es wäre nett wenn jemand eine findet, ich bin am Ende mit meinem Latein...

[Christian Seehase]

Moin simlei,

schau Dir mal den Anfang von szExeFile genau an:
'[', 'S', 'y', 's', 't', 'e', 'm', ' ', 'P', 'r', 'o', 'c', 'e', 's', 's', ']', #0

Entspricht als String
[System Process]

Das wäre also der (Pseudo)Prozess mit der ID 0.

Das was hinter der #00 steht, ist halt das, was gerade im Speicher stand, als szExeFile gefüllt wurde. Da die #00 den String terminiert, ist alles, was davor steht das, womit verglichen wird.
Da [System Process] der Rückgabewert von Process32First gewesen sein dürfte: Geh' doch mal im Einzelschritt durch, was die nächsten Werte sind, oder lass Dir die Prozessnamen einfach mal der Reihe nach ausgeben.

[simlei]

soweit ich das sehe dürfte

#0, 'û', 'ý', '', #24, #0, #0, #0, 'Ð', #7, #0, #0, 'X', 'ú', #18, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, '<', #0, '>', #0, #0, 'ü', 'ý', '', 't', #7, #0, #0, '„', 'ú', #18, #0, 'Ê', '/', '�', '|', #3, #0, #31, #0, #0, #0, #0, #0, #0, 'ü', 'ý', '', 'Ø', 'ú', #18, #0, #30, #0, #31, #0, 'à', 'ú', #18, #0, 'œ', 'ú', #18, #0, '’', 'Õ', '‘', '|', '»', '›', '€', '|', 't', #7, #0, #0, #12, 'ý', #18, #0, 'Ù', #21, 'j', 't', 't', #7, #0, #0, ' ', '.', #21, #0, '¥', 'ö', 'k', 't', '|', #6, #16, #0, #2, #0, #0, #0, '£', 'À', #0, #0, 'x', 'â', #20, #0, 'x', 'â', #20, #0, #2, #0, #0, #0, '(', #0, 'ì', #0, #0, #0, #0, #0, 'x', 'â', #20, #0, 'È', 'q', #20, #0, '(', 'á', #20, #0, 'Ð', #13, #21, #0, #0, #0, #0, #0, 'à', 'ú', #18, #0, 'M', 'S', 'C', 'T', 'F', '.', 'S', 'e', 'n', 'd', 'R', 'e', 'c', 'e', 'i', 'v', 'e', '.', 'E', 'v', 'e', 'n', 't', '.', 'I', 'A', 'O', '.', 'I', 'C', #0, #0, #1, #0, #0, #0, 'Ð', 'ú', #18, #0, 'p', 'ý', #18, #0, 'p', 'ý', #18, #0, '”', #4, 'Ô', 'w', #8, 'ˆ', 'Ñ', 'w', 'ÿ', 'ÿ', 'ÿ', 'ÿ', #16, #0, #0, #0, '°', '3', 'ˆ', '|', 'l', 'û', #18, #0, #0, #0, #0, #0, 'Æ', 'Z', 'A', #0)

ja wohl keinen sinnvollen Prozessnamen bzw irgendwelche Namen darin enthalten... oder meinst du dass ich den nächsten Prozess vergleichen soll? Sodass dann, wenn dort der Prozessname steht, auch die Bedingung der if-Anwesung erfüllt ist?

[Christian Seehase]

Moin simlei,

Zitat:

Zitat von simlei

...oder meinst du dass ich den nächsten Prozess vergleichen soll?

Ja, klar.

Damit

Zitat:

Zitat von Christian Seehase

Das was hinter der #00 steht, ist halt das, was gerade im Speicher stand, als szExeFile gefüllt wurde.

wollte ich zum Ausdruck gebracht haben, dass alles, was hinter der ersten #00 im Feld szExePath steht als Datenmüll anzusehen ist.

[simlei]

aber dann wärs ja so, dass
a) WoW.exe in den Versuchen von mir immer der erste Prozess gewesen wäre ODER
b) dass alle Systemprozesse diese Eigenschaft haben und dass sozusagen bei einem solchen Prozess mit System Process am anfang immer einen Schritt weitergegangen werden muss... auf jeden Fall werd ichs so mal probioeren. Vielen Dank, Gute Hilfe!

[Christian Seehase]

Moin simlei,

ersetze doch mal das hier:

Delphi-Quellcode:

        if AnsiLowerCase(p.szExeFile) = AnsiLowerCase(AExeName) then
        begin
          Process := OpenProcess(Process_Terminate, false, p.th32ProcessID);
          Result := TerminateProcess(Process, 0);
        end;

durch

Delphi-Quellcode:

ShowMessage(p.szExePath);

und lass' Dir der Reihe nach einfach mal anzeigen, welche Prozesse so gefunden werden.

[simlei]

hab ich... es funktioniert im prinzip auch...
Das Problem oben gibts auch nicht mehr.

Jetzt ists nun halt wirklich so, dass OpenProcess nicht funktioniert (liefert 0).
Womit ich wieder dabei wäre, wie ich das umgehe? Es wurde vorhin erwähnt, dass das über einen Dienst geht. Wie richte ich das ein oder gibts ne bessere Lösung?

[Christian Seehase]

Moin simlei,

was meldet GetLastError, wenn Du es unmittelbar nach dem OpenProcess (also vor TerminateProcess) abfragst?

[simlei]

"Zugriff verweigert"
:(

Damit stellt sich dieselbe Frage wie aus meinem letzten Post...
Wie kann ich dem Programm die Rechte geben, dennoch auf den Prozess zuzugreifen?

[simlei]

*push

Sorry, aber es wurde ja oben schonmal erwähnt, dass es eine Möglichkeit gibt, dem Programm Rechte zu geben (als Service), sodass es funktioniert. Jetzt wäre wenigstens ein Link auf eine Stelle, wo es erklärt wird, wie, doch nicht fehl am Platze, oder nicht?
Danke schonmal!