function DriveExists(Drive: Byte): boolean;
begin
Result := Boolean(GetLogicalDrives and (1 shl Drive));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Drive: byte;
beginfor Drive := 0 to 25 doif DriveExists(Drive) then
ListBox1.Items.Add(Chr(Drive + $41));
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Cуществует ли диск в системе", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!