Иконки

[MISHA]

Подскажите, как сделать иконку на TitleBar-e (в верхнем левом углу). Желательно пример

[johnk]

http://www.blitzbasic.com/Community/...hp?topic=86083

[MISHA]

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

' -----------------------------------------------------------------------------
' 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:"? на нем выдавало ошибку и я его закоментил.

[SBJoker]

Потому что далее этой строчки нужно текст вынести в отдельный decls файл.
Но раз и так работает то гуд.