XProfan

'Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
'Fenster-Icon austauschen (2)
DEF SetClassLong(3) !"user32","SetClassLongA"
DEF ExtractIcon(3) !"shell32","ExtractIconA"
Declare base$,icon&
base$="ICON2.ICO"
icon&= ExtractIcon(0,Addr(Base$),0)
Cls
SetClassLong(%hwnd,-14,Icon&)
WaitInput
end