Code
#Include "window9.bi"
function GetWinBgColor(hWnd as HWND) as Integer
Dim As Byte Ptr sbuff = New Byte[41]
Dim As Any Ptr gcl = GetClassLong(hWnd,GCL_HBRBACKGROUND)
GetObject(gcl,41,sbuff)
Return Peek(Long,sbuff+4)
end function
hMain = OpenWindow("Тест",300,300,645,270)
If hMain = 0 Then End 1
WindowColor(hMain, &hFF7700)
Print Hex(GetWinBgColor(hMain))
Sleep
P.S.: перед получением цвета сначала нужно установить цвет, так как без этого почему-то в результате будет черный цвет, хотя по-умолчанию в окне установлен серый (&hD7D7D7)
