zasoby systemowe

0

jak z poziomu programu w delphi sprawdzic stan zasobow systemowych tzn ilosc wolnego ramu.--Delphi 5 (paskal is good too)

0

Mam nadzieję że to Ci wystarczy.

function GetPamiec(Co: Byte):LongInt;
var
MemInfo: TMemoryStatus;
begin
Result:=0;
MemInfo.dwLength := Sizeof(MemInfo);
GlobalMemoryStatus(MemInfo);
with MemInfo do
case Co of
0: result :=dwTotalPhys div 1024;
podaje całą pamięć w kB
1: result :=dwAvailPhys div 1024;
podaje ilość dostępnej pamięci w kB
2: result :=dwMemoryLoad;
//załadowanej pamięci
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Showmessage('Pamięci: '+inttostr(GetPamiec(0))+
' kB z tego dostępnej: '+inttostr(getpamiec(1))+' kB');
end;

Pozdrowienia dla całego FORUM !!!--Marco_99

0

program dobrze wyswietla wielkosc calej pamieci, dobrze wyswietla ilosc wolnej, ale ilosc zajetej jest wyswietlana zle (zawsze ponizej 100kB) tak, ze zajeta i wolna nie sumuja sie do calej dostepnej--Delphi 5 (paskal is good too)

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0