Icons anzeigen

[Tom]

Annahme: Du hast ICO-Dateien. ImageList die Systemicon zuordnen:

Delphi-Quellcode:

  SysIL := SHGetFileInfo('', 0, FileInfo, SizeOf(FileInfo), SHGFI_SYSICONINDEX OR SHGFI_SMALLICON );
  ImageListe.Handle := SysIL;

Und Index für eine bestimmte ICO-Datei ermitteln

Delphi-Quellcode:

var
  FileInfo : TSHFileInfo;
     SysIL : UInt;
...
  SysIL := SHGetFileInfo(PChar( FileName ),0,FileInfo,SizeOf(TSHFileInfo),SHGFI_SYSIconIndex OR SHGFI_SMALLICON );
  if SysIL <> 0 then Result := FileInfo.IIcon;

[Hansa]

wo ist denn die ImageList :?:

[Tom]

Zitat:

Zitat von Hansa

wo ist denn die ImageList :?:

1) Versteckt, ich habe sie ImageListe genannt ...
2) Result gibt im zweiten Teil die Nummer der Icons zurück, praktisch also ImageIndex.

[Hansa]

Zitat:

Zitat von Tom

1) Versteckt, ich habe sie ImageListe genannt ...

na toll.

Es sind nicht nur *.ICO

[Dax]

Hi hansa!

Mach doch alle in eine TImageList und weise sie mit einem Timer einem SppedButton zu, der dann den Timer anhält bzw. weiterlaufen lässt.

Btw: könntest du die Dinger mal als .zip posten??

MfG gecko2000