, deze demonstratie van het aanvragen van een icoon, de winning, de functie getsmallicon (totaal: string aan documenten):;,, var, de informatie: tshfileinfo; infosize: gehele getal;,,,,,,,, infosize:= groot (tshfileinfo), fillchar (informatie, infosize, 0);,, SHGetFileInfo (pchar (documenten), 0, informatie, infosize, shgfi_icon of shgfi_smallicon);,, resultaten: = informatie. Wellcome;,, een einde te maken aan de;,,,