XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Iconbutton mit Icon aus EXE-Datei
 $H messages.ph
 $H windows.ph
Def ExtractIcon(3) !SHELL32,ExtractIconA
Declare Prog$,hIcon&,index%,Btn&
Prog$=$SysPath + \calc.exe
index%=0
Cls
hIcon&=ExtractIcon(%hinstance,Addr(Prog$),index%)
Btn& = Create(IconButton,%hwnd,,100,100,40,40)
Sendmessage(Btn&,~BM_SETIMAGE,~IMAGE_ICON,hIcon&)
W