#include <WindowsConstants.au3>
#include <WinAPI.au3>

_Example()

Func _Example()
	Local $aSysColor[39] = [ _
			'COLOR_3DDKSHADOW', _
			'COLOR_3DFACE', _
			'COLOR_3DHIGHLIGHT', _
			'COLOR_3DHILIGHT', _
			'COLOR_3DLIGHT', _
			'COLOR_3DSHADOW', _
			'COLOR_ACTIVEBORDER', _
			'COLOR_ACTIVECAPTION', _
			'COLOR_APPWORKSPACE', _
			'COLOR_BACKGROUND', _
			'COLOR_BTNFACE', _
			'COLOR_BTNHIGHLIGHT', _
			'COLOR_BTNHILIGHT', _
			'COLOR_BTNSHADOW', _
			'COLOR_BTNTEXT', _
			'COLOR_CAPTIONTEXT', _
			'COLOR_DESKTOP', _
			'COLOR_GRADIENTACTIVECAPTION', _
			'COLOR_ACTIVECAPTION', _
			'COLOR_GRADIENTINACTIVECAPTION', _
			'COLOR_INACTIVECAPTION', _
			'COLOR_GRAYTEXT', _
			'COLOR_HIGHLIGHT', _
			'COLOR_HIGHLIGHTTEXT', _
			'COLOR_HOTLIGHT', _
			'COLOR_INACTIVEBORDER', _
			'COLOR_INACTIVECAPTION', _
			'COLOR_INACTIVECAPTIONTEXT', _
			'COLOR_INFOBK', _
			'COLOR_INFOTEXT', _
			'COLOR_MENU', _
			'COLOR_MENUHILIGHT', _
			'COLOR_MENUBAR', _
			'COLOR_MENU', _
			'COLOR_MENUTEXT', _
			'COLOR_SCROLLBAR', _
			'COLOR_WINDOW', _
			'COLOR_WINDOWFRAME', _
			'COLOR_WINDOWTEXT']

	GUICreate('_WinAPI_GetSysColor', 480, 600)
	For $i = 0 To 38
		$n = Eval($aSysColor[$i])
		$color = _WinAPI_GetSysColor($n)
		GUICtrlCreateLabel(@TAB & $n & @TAB & Hex($color, 6) & @TAB & '$' & $aSysColor[$i], 15, $i * 15 + 5, 450, 15)
		GUICtrlSetBkColor(-1, $color)
		If $color < 0x888888 Then
			If $color < 0x333333 Then
				GUICtrlSetColor(-1, 0x999999)
			Else
				GUICtrlSetColor(-1, 0xdddddd)
			EndIf
		EndIf
	Next
	GUISetState()
	Do
	Until GUIGetMsg() = -3
EndFunc   ;==>_Example