Форум: "Система";
Текущий архив: 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.04 c