Speicherauslastung eines beliebigen Prozesses anzeigen

[The-X]

Gehe ich richtig in der Annahme das GetProcessMemoryInfo nicht auf 9x Systemen funktioniert ?

habe die obigen Code-schnipsel mal in meine Processlist gepackt und nebenbei noch GetProcessMemoryInfo dynamisch geladen, aber ich bekomme als Ergebnis immer nur 0 Byte raus

wenn's mit GetProcessMemoryInfo nicht funktioniert unter 9x wie können das dann andere Programme ?
(WinSystem98 o.ä.)

[c113plpbr]

Zitat von The-X:

Gehe ich richtig in der Annahme das GetProcessMemoryInfo nicht auf 9x Systemen funktioniert?

Guggst du hier: GetProcessMemoryInfo
... Und da steht, dass es nur unter NT-Systemen funzt ... oder hab ich mich verguggt?

Wie es unter 9x Systemen funzt weis ich aber auch nicht ...

[Luckie]

Win9x liefert diese Information, glaube ich, nicht so ohen weiteres.

[The-X]

dann frag ich mich, wie WinSystem98 (von NewTech Software) es schafft so genaue Angaben z.B. über den Speicherverbrauch von meinem Delphi zu machen
siehe Anhang...

[edit]
link *nochmal* auf neuste/letze Version geändert
[/edit]

[Luckie]

Ich sagte nicht so ohne weiteres. Ich habe nicht gesagt, dass es unmöglich sei.

[The-X]

Das es nicht unmöglich ist (grins, doppelte verneinung) seh ich ja...
nur frag ich mich wie es geht
zum debuggen ist mir das teil 'n wenig zu komplex (hab mir das teil eben mit'm Disassembler angesehen) aber ich könnte ja mal versuchen den Autor zu fragen (Französisch-Kenntnisse rauskram)
der hat's in VC++ 6 gelöst (lt. PeID)

[NicoDE]

Zitat von The-X:

nur frag ich mich wie es geht

Warum so kompliziert denken... Mit VirtualQueryEx von Adresse 0 an alle Speicher-Blöcke durchlaufen und Details über Module und Heaps per CreateToolhelp32Snapshot. Man muss die Informationsflut dann nur noch brauchbar darstellen können :9

[toms]

Hi,

Habe ein VB Funktion gefunden, um die Speicherauslastung eines Prozesses anzuzeigen.

Code:

Function GetProcessMemUsage(hprocess As Long) As Long
   Dim lpMem As Long
   Dim lPrivateBytes As Long
   Dim ret&
   Dim si As SYSTEM_INFO
   Dim mbi As MEMORY_BASIC_INFORMATION
   Dim lLenMbi&
   GetProcessMemUsage = -1
   lLenMbi = Len(mbi)
   Call GetSystemInfo(si)
   lpMem = si.lpMinimumApplicationAddress
   While lpMem < si.lpMaximumApplicationAddress
       mbi.RegionSize = 0
       ret = VirtualQueryEx(hprocess, lpMem, mbi, lLenMbi)
       If ret = lLenMbi Then
           If ((mbi.lType = MEM_private) And (mbi.State = MEM_COMMIT)) Then ' this block is In use by this process
               lPrivateBytes = lPrivateBytes + mbi.RegionSize
           End If
           On Error GoTo Finished
           lpMem = mbi.BaseAddress + mbi.RegionSize
           On Error GoTo 0
       Else
           Exit Function
       End If
   Wend
Finished:
   GetProcessMemUsage = lPrivateBytes
End Function

Hier ein quick & dirty Übersetzung nach Delphi:

Delphi-Quellcode:

function GetProcessMemUsage(hprocess: THandle) : Longint;
var
   lpMem : Cardinal;
   lPrivateBytes : Longint;
   ret:DWORD;
   si : TSystemInfo;
   mbi : TMemoryBasicInformation;
   lLenMbi: DWORD;
   x: Integer;
begin
   GetProcessMemUsage := -1;
   lLenMbi := SizeOf(mbi);
   GetSystemInfo(si);
   lpMem := Cardinal(si.lpMinimumApplicationAddress);
   while DWORD(lpMem) < DWORD(si.lpMaximumApplicationAddress) do
   begin
       mbi.RegionSize := 0;
       ret := VirtualQueryEx(hprocess, Pointer(lpMem), mbi, lLenMbi);
       If ret = lLenMbi Then
       begin
           If ((mbi.Type_9 = MEM_private) and (mbi.State = MEM_COMMIT)) then // this block is In use by this process
           begin
               lPrivateBytes := lPrivateBytes + mbi.RegionSize
           end; {if}
           lpMem := DWORD(mbi.BaseAddress) + DWORD(mbi.RegionSize);
       end else
       begin
          Result := lPrivateBytes;
          Exit;
       end;
   end; {while}
     Result := lPrivateBytes;
end;

Problem: GetProcessMemoryInfo & GetProcessMemUsage geben nicht den gleichen Rückgabewert.
Gibt wahrscheinlich einen (oder mehrere Fehler) in der Übersetzung oder die Funktion stimmt nicht ganz.

[The-X]

Zitat von NicoDE:

Zitat von The-X:

nur frag ich mich wie es geht

Warum so kompliziert denken... Mit VirtualQueryEx von Adresse 0 an alle Speicher-Blöcke durchlaufen und Details über Module und Heaps per CreateToolhelp32Snapshot. Man muss die Informationsflut dann nur noch brauchbar darstellen können :9

so kompliziert wie WS98 das macht/ausgibt wollt ich das garnicht
lediglich den gesamten Speicherverbrauch unter 9x brauch ich für meinen "Task-Manager"
sonst muss ich halt auf diese Angabe bei 9x verzichten (wie so oft, weil die entsprechende Funktion nur NT-basiert existiert/funktioniert ) wie auch bei meinem xNetStat

[NicoDE]

Zitat von The-X:

lediglich den gesamten Speicherverbrauch unter 9x brauch ich für meinen "Task-Manager"

GetProcessMemoryInfo gibt aber eigentlich nicht den gesamten Speicherverbrauch zurück, sondern eher die Größe des 'WorkingSet' (aktuelle im physikalischen Speicher befindliche Seiten - sind also zwei völlig verschiedene Informationen)