Registriert seit: 17. Mai 2003
285 Beiträge
Delphi 7 Professional
|
Re: Freien Ram ermitteln per .NET
16. Jul 2005, 19:24
HIER DIE LÖSUNG
RAM GRÖßE BEKOMMEN
Delphi-Quellcode:
//in MB
function GetMemorySize : int64;
var
ACounter : PerformanceCounter;
begin
ACounter := PerformanceCounter.Create('Speicher','Systemcode: Gesamtanzahl Bytes');
Result := Convert.ToInt64(ACounter.NextValue * 0.001);
end;
FREIE RAM Bytes bekommen
Delphi-Quellcode:
//in Bytes
function GetFreeMemory : int64;
var
ACounter : PerformanceCounter;
begin
ACounter := PerformanceCounter.Create('Speicher','Verfügbare Bytes');
Result := Convert.ToInt64(ACounter.NextValue);
end;
könnte man vieleicht in die Code Libary übernehmen oder?
Wenn das Meer unruhig ist und der Wind die Wellen treibt, erfreut es, vom Strand aus die Mühen eines Anderen zu beobachten.
|