На нашем сайте ежедневно публикуются десятки качественных и свежих материалов, которые Вы можете скачать абсолютно бесплатно. Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
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) +'килобайт';
|