Главная страницаОбратная связьКарта сайта

Cуществует ли диск в системе

Автор: Serious
WEB-сайт: http://forum.vingrad.ru

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;

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


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Cуществует ли диск в системе", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info