Speicherauslastung einer Anwendung?

[Sharky]

Hai,

wie kann ich den auslesen wieveil Speicher eine bestimmte Anwendung verwendet (So wie im Taskmanager angezeigt).
Wenn ich mit den diversen Codes aus dem Forum die ProzessID ermittele und dann den Speicherverbrauch dieses Prozesses auslese stimmt der Wet nicht einmal ansatzweise mit dem des Taskmanagers überein.
Hat da jemand einen Tipp für mich?

[c113plpbr]

Es wäre interessant zu wissen wie du es denn bisher versucht hast?

Ich habe mal so ne Speicherauslastungsanzeige für mein programm gemacht, mit GetProcessMemoryInfo, und das hat eigentlich recht gut hingehauen, und immer gaanz genau den Wert gebracht, der im Taskmanger unter Speicherauslastung stand.

Ich habe diesen Code dafür verwendet:

Delphi-Quellcode:

function GetWorkingSetSize : integer;
var
  pmc: PPROCESS_MEMORY_COUNTERS; 
  cb: Integer; 
begin
  cb := SizeOf(_PROCESS_MEMORY_COUNTERS);
  GetMem(pmc, cb); 
  pmc^.cb := cb;
  if(GetProcessMemoryInfo(GetCurrentProcess, pmc, cb))then
    result := pmc^.WorkingSetSize div 1024;
  else
    result := -1;
  FreeMem(pmc);
end;

(hab den code kurz nen bissl umgeschrieben, sollte funzen ...)
Der Code stammt aber ursprünglich auch aus der DP, wenn ich mich nicht irre ...

Für diese Funktion brauchst du aber ein Handle zum Prozess, d.h. dass du per OpenProcess dir eines holen musst ...

ciao, Philipp

[Sharky]

Zitat:

Zitat von c113plpbr

...Für diese Funktion brauchst du aber ein Handle zum Prozess, d.h. dass du per OpenProcess dir eines holen musst ...

Hai Philipp,
diesen Code verwende ich auch. Aber ich dachte ich bräuchte dafür die ProzessID und nicht den Handle. Also liegt wohl dort mein Fehler?

[c113plpbr]

MSDN Platform SDK

GetProcessMemoryInfo
Parameters:
Process: [in] Handle to the process.
ppsmemCounters: [out] Pointer to the PROCESS_MEMORY_COUNTERS structure that receives information about the memory usage of the process.
cb: [in] Specifies the size, in bytes, of the PROCESS_MEMORY_COUNTERS structure.

Dann versuch mal den prozess per

Delphi-Quellcode:

OpenProcess(PROCESS_ALL_ACCESS,false,PID)

zu öffnen.

ciao, Philipp

[Sharky]

Zitat:

Zitat von c113plpbr

...Dann versuch mal den prozess per

Delphi-Quellcode:

OpenProcess(PROCESS_ALL_ACCESS,false,PID)

zu öffnen....

Bingo :bounce1:
jetzt geht es. Ich danke Dir.

[Der_Ventilator]

Welche Units muss ich da noch einbinden?
Mein D2005 PE kennt ja nicht mal die Datentypen, da ist eigentlich alles als unbekannt rot unterschlängelt...

[Christian Seehase]

Moin Ventilator,

dafür benötigst Du noch die Unit psapi.

[angos]

Zitat:

Zitat von Sharky (Beitrag 191217)

Zitat:

Zitat von c113plpbr

...Dann versuch mal den prozess per

Delphi-Quellcode:

OpenProcess(PROCESS_ALL_ACCESS,false,PID)

zu öffnen....

Bingo :bounce1:
jetzt geht es. Ich danke Dir.

Hi,

ich habe genau das gleiche Problem wie du, Sharky. Leider ist mir nicht bewusst wo ich die hier angegebene Zeile einsetzen muss. Kann mir dort jemand weiter helfen?

EDIT: Würde ebenfalls gern wissen wo ich die PID herbekomme!

Also wo muss das eingebaut werden..schön wäre auch noch eine Erklärung damit ich nicht ganz dumm sterbe :)

Gruß

[himitsu]

Da wo ganz oben mit GetCurrentProcess der die eigene Anwendung übergeben wird, kannst du das Handle irgendeiner Anwendung übergeben, welches man sich z.B. auch über OpenProcess besorgen kann, wenn es um eine fremde Anwendung geht.

Prozesse auflisten (ansonsten "neue Frage neuer Thread")