Namen von Wechseldatenträger ermitteln

[Der schöne Günther]

Beispiel mit Spring4D:

Delphi-Quellcode:

program drives;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  Spring.Utils,
  Spring.Utils.IO;

var
   drive: Spring.Utils.IO.TDriveInfo;

begin
  try

   for drive in TDriveInfo.GetDrives() do
      WriteLn(drive.Name+' is a '+TEnum.GetName(drive.DriveType));

  except
   on E: Exception do
     Writeln(E.ClassName, ': ', E.Message);
  end;

  readln;
end.

Muss man sich keine Arbeit mehr mit machen

[Perlsau]

Für meinen Medienscanner verwende ich folgende Methode:

Delphi-Quellcode:

Function TUtily.GetPartitionName(Const ADrive: Char): String;
Var
  Unused : Cardinal;
  Buffer : array[0..19] of Char;

begin
  If (GetDriveType(PChar(Format('%S:\',[ADrive]))) >1) And
     (GetVolumeInformation(PChar(ADrive+':\'),
                           @buffer[0], SizeOf(buffer),
                           nil,
                           unused,
                           unused,
                           nil,
                           0)) Then
    Result := buffer           Else
    Begin
      Result := '';
      RaiseLastOSError;
    End;
end;