Code
'
' (C) 2012 Frank Abbing für Paules-PC-Forum.de
'
Struct SHFILEINFO = hIcon&,iIcon&,dwAttributes&,szDisplayName#(260),szTypeName#(80)
Declare file$, shfi#, icon&
Dim shfi#, SHFILEINFO
file$ = "C:\\test.lnk"
External("shell32.dll", "SHGetFileInfoA", Addr(file$), 0, shfi#, SizeOf(shfi#), $8100)
icon& = shfi#.hIcon&
Cls
DrawIcon icon&, 8, 8
Create("IconButton", %hwnd, icon&, 8, 48, 40, 40)
WaitInput
Alles anzeigen