Текущий архив: 2004.04.18;
Скачать: CL | DM;
Вниз
Расмер диска Найти похожие ветки
← →
Kremen © (2004-02-16 14:11) [0]Как узнать общий размер жесткого диска и оставшееся свободное место?
← →
jel © (2004-02-16 19:18) [1]GetDiskFreeSpace + немного арифметики.
← →
Kremen © (2004-02-17 11:36) [2]А примера нет никакого?
← →
Kremen © (2004-02-17 11:38) [3]или по функции GetDiskFreeSpaseEx, бьюсь, но никак не могу получить
← →
Rouse_ © (2004-02-17 12:32) [4]
procedure TForm1.Button1Click(Sender: TObject);
var
A, B, C: Int64;
begin
if GetDiskFreeSpaceEx("c:\", A, B, @C) then
Memo1.Text :=
"FreeBytesAvailableToCaller: " + IntToStr(A) + #13#10 +
"TotalNumberOfBytes: " + IntToStr(B) + #13#10 +
"TotalNumberOfFreeBytes : " + IntToStr(C);
end;
Желаю успехов
← →
Rouse_ © (2004-02-17 12:35) [5]Кстати это не для жесткого, а для логического диска
← →
Kremen © (2004-02-17 12:44) [6]Спасибо огромное
Страницы: 1 вся ветка
Текущий архив: 2004.04.18;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.085 c
