Aufrufen tue ich die Funktion wie folgt:
Delphi-Quellcode:
for x := 0 to 7 do
for y := 0 to 7 do
if x*y <= ListBox1.Items.Count then
Image1.Canvas.Draw(x*34, y*34, FileIcon(ListBox1.Items.Strings[x*y]));
(Die .lnk Pfade stehen in der ListBox1)
Und bei normalen Dateitypen funktioniert die Funktion auch astrein, nur bei .lnk Dateien passiert dies.