XProfan

'Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
'Ventana-Icon austauschen (2)
DEF SetClassLong(3) !"user32","SetClassLongA"
DEF ExtractIcon(3) !"shell32","ExtractIconA"
Declarar base$,icon&
base$="ICON2.ICO"
icon&= ExtractIcon(0,Addr(Base$),0)
Cls
SetClassLong(%hwnd,-14,Icon&)
WaitInput
end