XProfan

//Icon 103 aus der shell32.dll zuzuweisen
setClassLongA(hWnd,gcl_hicon,extractIconA(hInstance,shell32.dll,103))
//oder auch Icon per create(hIcon... beziehen:
setClassLongA(hWnd,gcl_hicon,create(hIcon,A))//im Programm besser für deleteObject Iconhandle merken...
//oder Icon per wm_setIcon setzen:
sendMessage(hWnd,wm_setIcon,1,create(hIcon,A))

 $H c:p00xwindows.ph
CLS
var H&=%HWND
var MYICON&=CREATE(hIcon,BAUM)
Variante1
~SetClassLongA(H&,-14,MYICON&)
Variante2
SENDMESSAGE(H&,$0080,1,MYICON&)
WAITINPUT

 {$cleq}
cls
long 	h=hWnd,
myIcon=create(hIcon,BAUM)
setClassLong(h,gcl_hicon,myIcon)
//sendMessage(h,wm_setIcon,1,myIcon)
waitInput
end