forum.boolean.name - Иконки

Огромное спасибо
воспользовался этим кодом

Код:

' -----------------------------------------------------------------------------

' ccSetIcon

' -----------------------------------------------------------------------------

Function ccSetIcon(iconname$, TheWindow%)        

        ?Win32

        Local icon=ExtractIconA(TheWindow,iconname,0)

        Local WM_SETICON = $80

        Local ICON_SMALL = 0

        Local ICON_BIG = 1

'        sendmessage(TheWindow, WM_SETICON, ICON_SMALL, icon) 'don't need this

        sendmessage(TheWindow, WM_SETICON, ICON_BIG, icon)

'        SetClassLongA(TheWindow,-14,icon)'obsolete as it doesn't work with Windows XP Theme!

        ?

End Function



'call it like this

ccSetIcon("test.ico", GetActiveWindow())





'and the externs:





?win32

Extern "win32"

        Function ExtractIconA%(hWnd%,File$z,Index%)

        Function GetActiveWindow%()

        Function SendMessage:Int(hWnd:Int,MSG:Int,wParam:Int,lParam:Int) = "SendMessageA@16"

End Extern

?

Только не могу понять зачем там "and the externs:"? на нем выдавало ошибку и я его закоментил. :)