"Jeff David" <jldavid@lucent.com> wrote in message
news:3AD1B811.6B6213EF@lucent.com
'''Is there any way to retrieve the desktop properties in Windows? Specifically, I am looking to retrieve the user's Active Title Bar size (which I can get by bringing up the Desktop's "Properties" dialog, clicking on the "Appearance" tab and selecting the "Active Title Bar" item).

[Tom Wilkason] replied:
Try the procedure below on your machine (only tested on Win2K), the title height is '''CaptionHeight''' and the borderwidth is '''BorderWidth'''

 proc winGetDesktopSetting {what} {
   package require registry
   set modValues {
      BorderWidth
      CaptionHeight
      CaptionWidth
      IconSpacing
      IconVerticalSpacing
      MenuWidth
      MenuHeight
      ScrollHeight
      ScrollWidth
      SmCaptionFont
      smCaptionWidth
   }
   if {[lsearch -exact $modValues $what] >= 0} {
      if {[catch {registry get \
	"HKEY_CURRENT_USER\\Control Panel\\Desktop\\WindowMetrics"\
	 $what} result]} {
         return -code error $result
      } else {
         return [expr {-$result/15}]
      }
   } else {
      return -code error "Valid values are: $modValues"
   }
 }
[Jeff David] replied that it worked fine on NT after changing the divisor to 12.
----
[Arts and crafts of Tcl-Tk programming]