Denne artikkelen viser hvordan du kan hente et lite ikon fra en application.function GetSmallIcon (konst aFile: String): THandle; Var Info: TSHFileInfo; InfoSize: Integer; begynne InfoSize: = sizeof (TSHFileInfo); FillChar (Info, InfoSize, 0); SHGetFileInfo (PChar (aFile), 0, Info, InfoSize, SHGFI_ICON eller SHGFI_SMALLICON); Resultat: = Info.hIcon; end;