| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
HDD [D6, Win95/98]
123000 © (2002-11-08 12:08:00)Как определить кол-во свободного места на ЖД?
KSergey (2002-11-10 12:38:00) [1]На лишние объявленные перменные внимания не обращать. Это просто выдернуто из проги.
KSergey (2002-11-10 12:37:00) [2]
> 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;
Ну если ничего лишнего случайно не выкинул - то должно работать.
123000 (2002-11-09 16:49:00) [3]Я в API не разбираюсь!
Проблемы с параметрами
Ученик (2002-11-09 13:34:00) [4]>123000 © (09.11.02 12:57)
А в чем проблемы ?
123000 (2002-11-09 12:57:00) [5]А можно примерчик?
Ученик (2002-11-08 12:32:00) [6]GetDiskFreeSpace, GetDiskFreeSpaceEx
| |
