Problem mit Shellicons...

[APP]

Zitat von FriFra:

Nein, das war's leider nicht...

http://www.frifra.de/Temp/SHI.jpg

also ich kenne Deinen Code nicht genau, aber wenn ich zuerst

Delphi-Quellcode:

   SHGetFileInfo(pchar('*.htm'), FILE_ATTRIBUTE_NORMAL, sfi, sizeof(sfi),
      SHGFI_ICON OR SHGFI_USEFILEATTRIBUTES);
   showmessage(inttostr(sfi.iIcon));

und mir danach die SystemImageListe mit

Delphi-Quellcode:

PROCEDURE GetSystemImageList(ImageList: TImageList);
VAR
   res                             : Integer;
   shf                             : TSHFILEINFO;
BEGIN
   res := SHGetFileInfo('', 0, shf, SizeOf(shf), SHGFI_SYSICONINDEX OR SHGFI_SMALLICON);
   ImageList.handle := Res;
   ImageList.ShareImages := True;  
END;
--------------------------------

VAR
   I                               : Integer;
   ListItem                        : TListItem;
BEGIN
   GetSystemImageList(Imagelist1);
    BEGIN
      WITH ListView1 DO
         BEGIN
            SmallImages := ImageList1;
            LargeImages := ImageList1;
            FOR I := 0 TO ImageList1.Count - 1 DO
               BEGIN
                  ListItem := Items.Add;
                  ListItem.ImageIndex := I;
               END;
          END;
   END;

hole ist das Html Icon an 5. Stelle = 4. Index.