Problem mit Shellicons...

[Christian Seehase]

Moin FriFra,

jetzt hab' ich das mal gemacht:

Delphi-Quellcode:

// uses SHLOBJ,SHELLAPI;

var
  isfWork  : IShellFolder;
  piidWork : PItemIdList;
  dwDummy  : DWORD;
  fiWork   : TSHFileInfo;
  wsWork   : WideString;

begin
  // Interface auf IShellLink holen
  SHGetDesktopFolder(isfWork);
  // Vielleicht geht auch nur die Extension
  wsWork  := 'Pfad der Datei';
  // Weil Borland ja bei Pointern immer var Parameter nimmt ist ein Dummy erforderlich
  dwDummy := 0;
  // ItemIdList des Pfades holen
  isfWork.ParseDisplayName(0,nil,PWideChar(wsWork),dwDummy,piidWork,dwDummy);
  // Und die Info abfragen
  SHGetFileInfo(PChar(piidWork),0,fiWork,SizeOf(fiWork),SHGFI_PIDL or SHGFI_ICON or SHGFI_SMALLICON);
  // fiIcon.iIcon enthält jetzt auch den Index in der SystemImageList, hIcon das Handle
end;

Bei mir funzt es, aber das tat's ja auch schon vorher

Ich weiss etwas spät