XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Button: IconButton mit System-Icon aus verknüpfter Datei

Proc ExtractAssociatedIcon

    Parameters file$,i&
    Return External(SHELL32.dll,ExtractAssociatedIconA,%hinstance,Addr(file$),Addr(i&))

EndProc

Def w32_DrawIcon(4) !USER32,DrawIcon
Declare hIcon&,btn&
Cls
Print AUTOEXEC.BAT
hIcon&=ExtractAssociatedIcon(C:\AUTOEXEC.BAT,1)
w32_DrawIcon(%hdc,100,40,hIcon&)
btn&=Create(IconButton,%hwnd,hIcon&,300,20,40,42)

While 1

    WaitInput

Wend