Подписаться на RSS рассылку
Главная » Статьи по Delphi » Диски » Как найти все диски в системе

Как найти все диски в системе

Автор: Serious

function DriveExists(Drive: Byte): boolean;
begin
  Result := Boolean(GetLogicalDrives and (1 shl Drive));
end;

procedure TForm1.Button1Click(Sender: TObject);
var Drive: byte;
begin
  for Drive := 0 to 25 do
    if DriveExists(Drive) then
      ListBox1.Items.Add(Chr(Drive + $41));
end;

Просмотров: 5324

Обсудить на форуме


Имя *:
Email:


Код *:

Copyright © 2008-2016 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта