Laufwerk Iocn ermitteln

[HomerGER]

Hallo
Weiß jemand wie ich die Laufwerk Icon auslesen kann
Gibt es da ne Function ?

Die Icon sollen in ListView angezeigt werden

[Benedikt]

Hi,

die Suche nach SHGetFileInfo sollte dir eigentlich weiterhelfen.

Beispielhaft hier mal ein Code-Schnipsel, um das Laufwerks-Icon in ein TImage zu laden.

Delphi-Quellcode:

uses ... ShellApi ...;

...

var
  FileInfo:     SHFILEINFO;
begin
        SHGetFileInfo('C:\', 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON or SHGFI_LARGEICON);
        Image.Picture.Icon.Handle:=FileInfo.hIcon;