Probleme beim Ermitteln von System-Icons unter Delhi 7.0

[ChristianWE]

Ich habe ein Problem beim Ermitteln der System-Icons unter Delphi 7.0 und kann daher in Trees und Listviews, die Dateien anzeigen, die zu den Dateien passenden Icons nicht anzeigen.
Bei der Verwendung des Codes, mit dem ich das früher unter Delphi 3.0 ermöglicht habe resultieren unter 7.0 nur 5 Icons.

Ich verwende folgenden Code:

Delphi-Quellcode:

function GetSystemIcons(var BildListe : TImageList;
Klein : Boolean) : Boolean;
VAR
 SysIl : uint;
 FiInf   : TSHFileInfo;
begin
  Result := False;
  IF BildListe = NIL THEN Exit;
  IF Klein THEN
    SysIl := SHGetFileInfo('', 0, FiInf, SizeOf(FiInf),
      SHGFI_SYSICONINDEX OR SHGFI_SMALLICON)
  ELSE
    SysIl := SHGetFileInfo('', 0, FiInf, SizeOf(FiInf),
      SHGFI_SYSICONINDEX OR SHGFI_LARGEICON);
  IF SysIl <> 0 THEN
  BEGIN
    BildListe.Handle := SysIl;
    BildListe.ShareImages := True;
    Result := True;
  END;
end;

Was mache ich falsch? Kann mir jemand helfen?

Thanks
Christian

[edit=Sharky]Delphi-Tags korrigiert. Mfg, Sharky[/edit]