Форум: "Система";
Текущий архив: 2003.01.20;
Скачать: [xml.tar.bz2];

Вниз

HDD   Найти похожие ветки 

← →
123000   (2002-11-08 12:08) [0]

Как определить кол-во свободного места на ЖД?

---

← →
Ученик   (2002-11-08 12:32) [1]

GetDiskFreeSpace, GetDiskFreeSpaceEx

---

← →
123000   (2002-11-09 12:57) [2]

А можно примерчик?

---

← →
Ученик   (2002-11-09 13:34) [3]

>123000 © (09.11.02 12:57)
А в чем проблемы ?

---

← →
123000   (2002-11-09 16:49) [4]

Я в API не разбираюсь!
Проблемы с параметрами

---

← →
KSergey   (2002-11-10 12:37) [5]

> 123000 © (09.11.02 16:49)
> Я в API не разбираюсь!
> Проблемы с параметрами

А постараться пробовали?

Я делал вот так. К слову, GetDiskFreeSpace - фигня. На NTFS не работает. Впрочем, Microsoft об этом честно заявляет.


var
Disk: Char;
VolName: array [0..255] of char;
FSName : array [0..100] of char;
VolSN: PDWORD;
MaxCompLen,FSFlags: Cardinal;
s: string;
FA,TS: Int64;
TF: TLargeInteger;

begin
Disk := "C"; // для какого диска хотим инфу получить
VolSN:=nil;
s := Disk + ":\";
if GetDiskFreeSpaceEx(PChar(s),FA,TS,@TF) then
begin
Result := IntToStr(Floor(TF/1024/1024))) + " Mb";
end;
end;

Ну если ничего лишнего случайно не выкинул - то должно работать.

---

← →
KSergey   (2002-11-10 12:38) [6]

На лишние объявленные перменные внимания не обращать. Это просто выдернуто из проги.

---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2003.01.20;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.01 c