Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > состояние физической памяти

Автор: serezhka1986 21.7.2010, 13:06

Как вывести информацию о памяти на каждом диске (всего, занято, свободно)??? smile

Автор: Snowy 21.7.2010, 14:32

Так тебя интересует память или жёсткий диск.
Ты уж определись.
Если диск, то вот: http://forum.vingrad.ru/forum/topic-74999.html

Автор: Delvish 21.7.2010, 22:05

я делал вот так:

Код


  VolSN := nil; MaxCompLen := 0; FSflags := 0;

  GetVolumeInformation(PChar(Msg), VolName, 255, VolSN, MaxCompLen, FSFlags, FSName, 100);
  GetDiskFreeSpaceEx(PChar(Msg), FrAv, Total, TotFr);
  
где Msg - имя диска, String
VolSN : PDWORD;
MaxCompLen, FSFlags : Cardinal;
VolName, FSName : array [0..255] of char;
FrAv, Total : Int64;

Totfr : PLargeInteger; (объявил в приватах)

определяет любой объем любых дисков