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

zusammenfalten · markieren

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?

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

MFG

Björn[quote]

Moin Michael,

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

Ich habe sie schon mit dem Taskmanager verglichen.

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.

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

Weiß jemand, wie man im Boden versinken kann?

Zitat von Luckie:

Weiß jemand, wie man im Boden versinken kann?

Auf ein Moor stellen und warten?!