Anzahl der Threads eines Prozesses mit EnumProcessModusl

[Luckie]

Ich verwende folgende Routine, um die anzahl der Threads eines Processes zu ermitteln.

Delphi-Quellcode:

function TProcess.SetCountThreads: DWORD;
var
  hProcess          : THandle;
  ModuleList       : array[0..1024] of DWORD;
  cbNeeded          : DWORD;
  foo: DWORD;
  bar: WideString;
  i: Integer;

begin
  cbNeeded := 0;
  hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, FProcID);
  if hProcess <> 0 then
  begin
    if EnumProcessModules(hProcess, @ModuleList, SizeOf(ModuleList), cbNeeded) then
    begin
      foo := SizeOf(DWORD);
      Result := cbNeeded div foo;
    end
    else
    begin
      Result := 0;
    end;
    CloseHandle(hProcess);
  end
  else
    begin
      Result := 0;
    end;
end;

Leider kommen da unsinnige Werte bei raus. Die Demo-Anwendung hat nur einen Thread, es werden aber 14 angezeigt. Wo liegt da mein Fehler?

[delphis spassbremse]

----
sry hab selber was net gesehen.. hat sich somit erledigt...

MFG

Björn[quote]

[Christian Seehase]

Moin Michael,

probier's doch mal mit CreateToolHelp32Snapshot, und vergleiche mal die Werte.

[Luckie]

Ich habe sie schon mit dem Taskmanager verglichen. ;)

[bitsetter]

Hi,

mit GetModuleBaseName() bin ich deine ModuleList mal durchgegangen und habe die Namen aller Module von Notepad auflisten lassen. Das sind auch eine ganze Menge wie GDI32.dll, USER32.dll usw. dabei.

[Luckie]

Ich Depp. :wall: Ich will die Threads und liste die Module auf. :wall:

Weiß jemand, wie man im Boden versinken kann?

[Olli]

Zitat:

Zitat von Luckie

Weiß jemand, wie man im Boden versinken kann?

Auf ein Moor stellen und warten?! :mrgreen: