|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
как определить буквы логических и физических жестких дисков
Как в Delphi определить сколько всего в системе физических и логических жестких дисков, а главное, какие у них буквы?
|
#2
|
||||
|
||||
Цитата:
Далее пишешь: Цитата:
Нет повести печальнее на свете, чем повесть о заклиневшем Resete. |
#3
|
||||
|
||||
Могу предложить кое-что по-проще:
На форму кидаешь ListBox и кнопку: Код:
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 begin ListBox1.Items.Add (Chr(Drive+$41)); end; end; |