Узнать букву диска, зная его название

[vvn94]

Возникла такая проблема: хочу написать программу, которая определяет все жёсткие диски, которые подключены в системе (в том числе и по usb) выводит названия самих дисков и буквы томов (под которыми они видны в системе), расположенных на этих дисках.
Первую часть я смог написать, а вот как получить букву тома мне непонятно. Вот, собственно говоря, код:

function GetDeviceName(PnPHandle: HDEVINFO; const DevData: TSPDevInfoData): string;
var
  BytesReturned: DWORD;
  RegDataType: DWORD;
  Buffer: array [0..256] of CHAR;
begin
  BytesReturned := 0;
  RegDataType := 0;
  Buffer[0] := #0;
  SetupDiGetDeviceRegistryProperty(PnPHandle, DevData, SPDRP_FRIENDLYNAME,
    RegDataType, PByte(@Buffer[0]), SizeOf(Buffer), BytesReturned);
  Result := Buffer;
  if Result<>'' then exit;
  BytesReturned := 0;
  RegDataType := 0;
  Buffer[0] := #0;
  SetupDiGetDeviceRegistryProperty(PnPHandle, DevData, SPDRP_DEVICEDESC,
    RegDataType, PByte(@Buffer[0]), SizeOf(Buffer), BytesReturned);
  Result:=Buffer;
end;

procedure TForm1.Button6Click(Sender: TObject);
var
  DrivePnPHandle: HDEVINFO;
  DeviceNumber:DWORD;
  DevData: TSPDevInfoData;
  DeviceInterfaceData: TSPDeviceInterfaceData;
  RES:BOOL;
begin
  DrivesListBox.Clear;
  DrivePnPHandle := SetupDiGetClassDevs(@GUID_DEVCLASS_DISKDRIVE, nil, 0, DIGCF_PRESENT {or DIGCF_PROFILE});

  if DrivePnPHandle = INVALID_HANDLE_VALUE then  Exit;

  DeviceNumber := 0;
  repeat
  // DevData:=GetMemory(sizeof(TSPDevInfoData));

   DeviceInterfaceData.cbSize := SizeOf(TSPDeviceInterfaceData);
   DevData.cbSize := SizeOf(TSPDevInfoData);
   RES := SetupDiEnumDeviceInfo(DrivePnPHandle, DeviceNumber, DevData);
   if (RES) then
    begin
     DrivesListBox.Items.Add(GetDeviceName(DrivePnPHandle, DevData));
     Inc(DeviceNumber);
    end;
  until not RES;

  SetupDiDestroyDeviceInfoList(DrivePnPHandle);
  DrivesListBox.Enabled:=true;
end;

Мучаюсь уже долго - ничего не могу придумать. Впринципе возможна и обратная операция - найти все буквы томов в системе, а потом для каждого узнать принадлежность диску/флэшке, но это у меня тоже не получается.
Подскажите кто-нибудь, как справиться с проблемой

[volod3000]

Самый простой способ :

var
  Drive: Char;
  DriveLetter: String[4];
begin
  for Drive := 'A' to 'Z' do
  begin
    DriveLetter := Drive + ':\';
    case GetDriveType(PChar(Drive + ':\')) of
      DRIVE_REMOVABLE:
        Memo1.Lines.Add(DriveLetter + '     Флеш');
      DRIVE_FIXED:
        Memo1.Lines.Add(DriveLetter + '     Локальный');
      DRIVE_REMOTE:
        Memo1.Lines.Add(DriveLetter + '     Сетевой');
      DRIVE_CDROM:
        Memo1.Lines.Add(DriveLetter + '     CD-ROM ');
    end;
  end;
end;

[vvn94]

так я пытался делать, но, во-первых, так жёсткий диск, который по usb подключается, не определяется как DRIVE_REMOVABLE, а во-вторых, дальше всё равно не понятно, как определить имя подключённого диска, а мне надо, чтобы программа работала именно для определённого устройства, а на другие не реагировала.

[JetUS]

Сообщение от vvn94

так я пытался делать, но, во-первых, так жёсткий диск, который по usb подключается, не определяется как DRIVE_REMOVABLE, а во-вторых, дальше всё равно не понятно, как определить имя подключённого диска, а мне надо, чтобы программа работала именно для определённого устройства, а на другие не реагировала.

По моему ОС и не должна определять его как DRIVE_REMOVABLE. Если хотите, можете отслеживать событие присоединения устройства и таким образом работать именно с ним.

[volod3000]

Вот еще такое есть : (вложенный файл).

Применение :

Var

	S,SOut : String;
	I : Integer;
	VolumeName,FileSystemName : String;
	VolumeSerialNo,MaxComponentLength,FileSystemFlags:LongWord;

begin
	S:=GetDisks(DiskHDD); {Получаем список Жёстких дисков (Параметр DiskHDD)}
	SOut:='';
	For I:=1 to Length(S) do {Получаем информацию о всех дисках и пишем в TLabel на форме}

	Begin

	{Если диск существует/вставлен ...}
	if GetHDDInfo(S[I], VolumeName, FileSystemName, VolumeSerialNo,
	MaxComponentLength, FileSystemFlags) then {... тогда собираем информацию}
	SOut:=SOut+
	'Диск: '+S[I]+#13#10+
	'Метка: '+VolumeName+#13#10+
	'Файловая система: '+FileSystemName+#13+#10+
	'Серийный номер: '+IntToHex(VolumeSerialNo,8)+#13+#10+
	'Макс. длина имени файла: '+IntToStr(MaxComponentLength)+#13+#10+
	'Flags: '+IntToHex(FileSystemFlags,4)+#13#10+#13#10;

	End;

	Memo2.Lines.Add(SOut); {Выводим  полученные данные о дисках}

end;

Сообщение от vvn94

во-первых, так жёсткий диск, который по usb подключается, не определяется как DRIVE_REMOVABLE,..

Ну, видимо жесткий диск по любому определяется как DRIVE_FIXED

[vvn94]

volod3000, спасибо. Библиотека очень помогла. Решил проблему.