Показ свободного места на дисках
|
| 16.02.2013, 19:29 |
var
i : Integer;
space : Int64;
begin
// Показ свободного места на дисках B, C, D, E, F, где существует
for i := 2 to 6 do
begin
space := DiskFree(i);
if space >= 0
then ShowMessage('Свободное место на диске = '+Chr(i+64)+
FloatToStrF(space, ffNumber, 20, 0))
else ShowMessage(Chr(i+64)+' Диск не существует');
end;
end;
Результат :
B Диск не существует
Свободное место на диске C = 8,414,223,678
Свободное место на диске D = 4,127,004,529
Свободное место на диске E = 0
Свободное место на диске F = 0
или так:
Кидаете на форму label1 и button1
label1.Caption := 'объем диска D: -'+inttostr(disksize(4)
div 1024) +'килобайт';
//а для того чтобы вывести информацию сколько свободно,
diskfree
label1.Caption := 'объем диска D: -'+inttostr(diskfree(4)
div 1024) +'килобайт';
|
|
Категория: Работа с дисками | Добавил: Reif
|
| Просмотров: 717 | Загрузок: 0
| Рейтинг: 0.0/0 |
| 
|