, denne artikel viser, hvordan til at udtrække en lille ikon fra en ansøgning.,, funktion getsmallicon (denne afile: string): thandle;,, var, info: tshfileinfo;,, infosize: heltal, begynder, infosize: = 7 (tshfileinfo);,, fillchar (info, infosize, 0), shgetfileinfo (pchar (afile), 0, info, infosize, shgfi_icon eller shgfi_smallicon);,, resultat: = info. hicon,,,,,,,,,,