uses psAPI; function GetAppliMemorySize: LongWord; var PMC: PROCESS_MEMORY_COUNTERS; // ou TProcessMemoryCounters, c'est pareil begin Result := 0; if GetProcessMemoryInfo(GetCurrentProcess, @PMC, Sizeof(PROCESS_MEMORY_COUNTERS)) then Result := PMC.WorkingSetSize; end;