XProfan

DEF AExtractIcon(3) ! "SHELL32","ExtractIconA"
DEF ASetClassLong(3) ! "User32","SetClassLongA"
declare dateiname#,icon&
cls
Dim Dateiname#,12
String Dateiname#,0="shell32.dll"
Let Icon& = @AExtractIcon(%Hinstance,Dateiname#,103)
ASetClassLong(%hwnd,-14,Icon&)
dispose dateiname#

cls
_setDlgIcon %hwnd,113
waitinput
end

proc _setDlgIcon

    parameters dlg&,n&
    external("user32","SetClassLongA",dlg&,-14,external("shell32","ExtractIconA",%Hinstance,"shell32.dll",n&))

endproc