F_GET_COLOR_SYSTEM

///////////////////////////////////////////////////////////////////////////////////////////////////////////////

// Function Name : f_get_color_system
// Argument Name : (none)
// Return Type :      Long
///////////////////////////////////////////////////////////////////////////////////////////////////////////////

String ls_Value
String ls_Color
Integer li_pos1
Integer li_pos2
Long ll_r
Long ll_g
Long ll_b
Long ll_Color

/*Constant System Color

SCROLLBAR
BACKGROUND
ACTIVETITLE
INACTIVETITLEMENU
WINDOW
WINDOWFRAME
MENUTEXT
WINDOWTEXT
TITLETEXT
ACTIVEBORDER
INACTIVEBORDER
APPWORKSPACE
HILIGHT
HILIGHTTEXT
BUTTONFACE
BUTTONSHADOW
GRAYTEXT
BUTTONTEXT
INACTIVETITLETEXT
BUTTONHILIGHT
BUTTONDKSHADOW
BUTTONLIGHT
INFOTEXT
INFOWINDOW
BUTTONALTERNATEFACE
HOTTRACKINGCOLOR
GRADIENTACTIVETITLE
GRADIENTINACTIVETITLE

*/

ls_Color = "BUTTONFACE"

If RegistryGet("HKEY_CURRENT_USER\Control Panel\Colors", ls_Color, RegString!, ls_Value) > 0 Then
    li_pos1 = pos(ls_Value, ' ', 1)
    ll_r = long(mid(ls_Value,1,li_Pos1 - 1))
    li_pos2 = pos(ls_Value, ' ', li_Pos1 + 1)
    ll_g = Long(Mid(ls_Value,li_pos1 + 1, li_Pos2 - li_Pos1))
    ll_b = long(mid(ls_Value, li_Pos2))
   
    ll_color = rgb(ll_r, ll_g, ll_b)
End If

Return ll_color