Последние записи

Интенсив по 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;

тема на форуме