Laufwerksbezeichnung wie in Windows

[Mazel]

Ich habe das gefunden was ich brauche. Folgende Funktion liefert mir sogar noch weitere Infos und die Laufwerksicons:

Delphi-Quellcode:

var
  FileInfo:     TSHFileInfo;

begin
  SHGetFileInfo(PAnsiChar('C:\'),
                0,
                FileInfo,
                SizeOf(FileInfo),
                SHGFI_ICON or
                SHGFI_LARGEICON or
                SHGFI_TYPENAME or
                SHGFI_DISPLAYNAME or
                SHGFI_SYSICONINDEX);
  Image1.Picture.Icon.handle:=FileInfo.hIcon;
  Lb1.Caption := FileInfo.szDisplayName;
  Lb2.Caption := FileInfo.szTypeName;

Gruß
Mazel