
Последние записи
- Убить процесс
- Конвертер heic в jpg
- Проверка на шестнадцатеричный формат записи
- Отдать пользователю файл с помощью file_get_contents()
- Написать собственую функцию operator[] для битов
- Проблема с движением 2D человека
- OpenGl.Создание винтовой лестницы
- Склеить несколько файлов в один
- Windows 10 сменить администратора
- Рандомное слайдшоу

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
22nd
Мар
Как в Delphi обнаружить подключенные съемные носители?
Posted by maloy under Delphi
Diana-64
Меня интересует, как в Delphi 7, можно получить имена и адреса подключенных дисков (флешек, съемных жестких дисков, ets)?
cooper72
uses Winapi.Windows; procedure GetDriveList(AComboBox: TComboBox); var i: integer; varRoot: WideString; varDrivers: DWORD; varVolumeName, varFileSystemName: array [0..MAX_PATH-1] of Char; varVolumeSerialNo, varMaxLength, varFileSystemFlags: LongWord; varStr: WideString; begin varRoot := '#:\'; varDrivers := GetLogicalDrives; for i := 0 to 25 do begin varRoot[1] := Char(Ord('A')+i); if (varDrivers and (1 shl i)) > 0 then begin if GetVolumeInformation(PChar(varRoot), varVolumeName, MAX_PATH, @varVolumeSerialNo, varMaxLength, varFileSystemFlags, varFileSystemName, MAX_PATH) then begin varStr := varRoot+' | '+varVolumeName+' ['+varFileSystemName+']'; AComboBox.AddItem(varStr, nil); end; end; end; end;
Для современных съемных usb дисков функция GetDriveType вернет DRIVE_FIXED вместо, ожидаемого, DRIVE_REMOVABLE. Учтите это
Stilet
Насчет адресов не понял, а насчет имен: Я пользуюсь таким кодом
var s,e:ansiString;i:integer;DriversList:TStringList;
...
begin
DriversList:=TStringList.Create;
SetLength(s,100);
GetLogicalDriveStringsA(Length(s),@s[1]);
i:=0; e:='';
while (i<100)and(copy(s,i,2)<>#0#0) do begin
if s=#0 then begin inc(i); e:=e+#13#10;end;
if s<>'\' then e:=e+s;
inc(i);
end;
DriversList.Text:=e;
SetLength(s,0);
end;
Похожие статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту

пеллетные котлы

Пеллетный котел Emtas

Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)