 |
Delphi Tips & Tricks | softsale > Delphi Tips & Tricks |
| następna rada > |
Aktualne zużycie pamięci przez aplikację
uses PsAPI...;
function CurrentMemoryUsage: Cardinal;
var
pmc: TProcessMemoryCounters;
begin
pmc.cb := SizeOf(pmc) ;
if GetProcessMemoryInfo(GetCurrentProcess, @pmc, SizeOf(pmc)) then
Result := pmc.WorkingSetSize;
end;
Przykład użycia: ShowMessage(FormatFloat('Pamięć używana: ,.# K', CurrentMemoryUsage / 1024)) ;
|
|
SOFTSALE - Oprogramowanie i Szkolenia softsale@softsale.com.pl 03-565 Warszawa , ul. Borzymowska 43 lok. 301C tel/fax:4084840,0607612428 |