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