Ram Ölçme Sıkıntısı

spectermun · Mesaj gönderen **spectermun** » 30 Nis 2015 01:50

Arkadaşlar bilgisayarın ramini ölçmek için bu kodu kullanıyorum

function Ramkac: longint;
var
  ProcessMemoryCounters: TProcessMemoryCounters;
begin
  Result:=0;
  ProcessMemoryCounters.cb := SizeOf(TProcessMemoryCounters);
  if GetProcessMemoryInfo(GetCurrentProcess(), @ProcessMemoryCounters, ProcessMemoryCounters.cb) then
   Result:= ProcessMemoryCounters.WorkingSetSize
  else
   RaiseLastOSError;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label2.caption:=FormatFloat('#,', Ramkac/1024/100);
end;

Programı derleyip açıyorum ilk açılışta 90 gösteriyor oysa ram 32 33 civarlarında. Neyin eksik olduğunu anlayamadım yardım ederseniz çok sevinirim.