XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fenstericon aus DLL
declare icon&,dll&
Def Loadimage(6) !USER32,LoadImageA
dll&=UseDll(icon.dll)
dll&=UseDll(Shell32.dll)
cls
icon&=LoadImage(dll&,#1,1,16,16,$0040)   #1 = Resourcenummer 1
SendMessage(%hwnd,$80,1,icon&)
WaitInput
Freedl