XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Hauptfenster: Icon aus Ressource als Fenster-Icon
declare dll&,Resourcenummer&,icon&
Def Loadicon(2) !USER32,LoadIconA
Dll&=Usedll(DATA.DLL)
Resourcenummer&=100
cls
Icon&=Loadicon(Dll&,Resourcenummer&)
Sendmessage(%Hwnd,$80,1,Icon&)
WaitInput
end