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;