XProfan

cls
var icon&=gethIconByLnk("c:\\test.lnk")

if icon&

    drawIcon icon&,0,0
    external("user32.dll","DestroyIcon",icon&)

endif

waitInput
end

proc gethIconByLnk

    parameters lnk$
    declare m#
    dim m#,352
    var icn&=external("shell32.dll", "SHGetFileInfoA",addr(lnk$),0,m#,352,$8100)
    case icn& : icn&=long(m#,0)
    dispose m#
    return icn&

endproc