Contenedor de systemparametersinfo

Contenedor de systemparametersinfo

Contenedor de systemparametersinfo : Multi-millones de consejos para hacer su vida mas facil.

Una manera facil de saber los parametros del sistema, cambiar, et al
Basicamente de windows obtiene/establece el sistema de informacion a traves de systemparametersinfo, por ejemplo, cuando usted vaya al panel de control, la mayoria de los applets de trabajo con systemparametersinfo para cambiar un parametro, y notificar al sistema sobre esto aqui es un borrador de un componente que establece/obtiene los parametros de todo el sistema.
unidad de wsi2
interfaz
utiliza Windows, Clases, Controles
const
& nbsp & nbsp SPI_GETKEYBOARDCUES = de $100 A
& nbsp & nbsp SPI_SETKEYBOARDCUES = $100B
& nbsp & nbsp SPI_SETMENUFADE = $1013
& nbsp & nbsp SPI_GETMENUFADE = $1012
& nbsp & nbsp SPI_SETSCREENSAVERRUNNING = 97
& nbsp & nbsp SPI_GETSCREENSAVERRUNNING = 114
& nbsp & nbsp SPI_SETCURSORSHADOW = $101B
& nbsp & nbsp SPI_GETCURSORSHADOW = $101A
& nbsp & nbsp SPI_GETSELECTIONFADE = $1014
& nbsp & nbsp SPI_SETSELECTIONFADE = $1015
& nbsp & nbsp SPI_GETTOOLTIPANIMATION = $1016
& nbsp & nbsp SPI_SETTOOLTIPANIMATION = $1017
& nbsp & nbsp SPI_GETTOOLTIPFADE = $1018
& nbsp & nbsp SPI_SETTOOLTIPFADE = $1019
& nbsp & nbsp SPI_GETUIEFFECTS = $103E
& nbsp & nbsp SPI_SETUIEFFECTS = $103F
& nbsp & nbsp SPI_GETMENUSHOWDELAY = 106
& nbsp & nbsp SPI_SETMENUSHOWDELAY = 107
& nbsp & nbsp SPI_GETCARETWIDTH = $2006
& nbsp & nbsp SPI_SETCARETWIDTH = $2007
tipo
& nbsp & nbsp TMouseSpeed = 1..20
& nbsp & nbsp TWindowsSystemInfo = clase( TComponent )
& nbsp & nbsp privada
& nbsp & nbsp & nbsp & nbsp funcion GetBooleanSetting(Index: Integer): Boolean
& nbsp & nbsp & nbsp & nbsp procedimiento SetBooleanSetting(Indice: Valor Entero: Boolean)
& nbsp & nbsp & nbsp & nbsp funcion GetIntegerSetting(Index: Integer): Integer
& nbsp & nbsp & nbsp & nbsp procedimiento SetIntegerSetting(Index: Integer Valor: Integer)
& nbsp & nbsp & nbsp & nbsp funcion GetDWORDSetting(Index:Integer): DWORD
& nbsp & nbsp & nbsp & nbsp procedimiento SetDWORDSetting(Index: Integer Valor: DWORD)
& nbsp & nbsp & nbsp & nbsp funcion GetWindows95Plus: Boolean
& nbsp & nbsp & nbsp & nbsp funcion GetWindowsRect: TRect
& nbsp & nbsp & nbsp & nbsp procedimiento SetWindowsRect(const Value: TRect)
& nbsp & nbsp & nbsp & nbsp funcion GetDoubleClkTime: UINT
& nbsp & nbsp & nbsp & nbsp procedimiento SetDoubleClkTime(const Value: UINT)
& nbsp & nbsp & nbsp & nbsp funcion GetMouseSpeed: TMouseSpeed
& nbsp & nbsp & nbsp & nbsp procedimiento SetMouseSpeed(const Value: TMouseSpeed)
& nbsp & nbsp & nbsp & nbsp funcion GetDblClkHeigth: Integer
& nbsp & nbsp & nbsp & nbsp procedimiento SetDblClkHeigth(const Valor: Integer)
& nbsp & nbsp & nbsp & nbsp funcion GetDblClkWidth: Integer
& nbsp & nbsp & nbsp & nbsp procedimiento SetDblClkWidth(const Valor: Integer)
& nbsp & nbsp & nbsp & nbsp funcion GetMenuShowDelay: DWORD
& nbsp & nbsp & nbsp & nbsp procedimiento SetMenuShowDelay(const Valor: DWORD)
& nbsp & nbsp protegido
& nbsp & nbsp publica
& nbsp & nbsp & nbsp & nbsp procedimiento ReloadSystemCursors
& nbsp & nbsp publicado
& nbsp & nbsp & nbsp & nbsp propiedad ShowSounds: Boolean
& nbsp & nbsp & nbsp & nbsp indice SPI_GETSHOWSOUNDS
& nbsp & nbsp & nbsp & nbsp leer GetBooleanSetting
& nbsp & nbsp & nbsp & nbsp escribir SetBooleanSetting
& nbsp & nbsp & nbsp & nbsp propiedad Beep: Boolean
& nbsp & nbsp & nbsp & nbsp indice SPI_GETBEEP
& nbsp & nbsp & nbsp & nbsp leer GetBooleanSetting
& nbsp & nbsp & nbsp & nbsp escribir SetBooleanSetting
& nbsp & nbsp & nbsp & nbsp propiedad MenuUnderlines: Boolean
& nbsp & nbsp & nbsp & nbsp indice SPI_GETKEYBOARDCUES
& nbsp & nbsp & nbsp & nbsp leer GetBooleanSetting
& nbsp & nbsp & nbsp & nbsp escribir SetBooleanSetting
& nbsp & nbsp & nbsp & nbsp propiedad UserPrefersKeyBoard: Boolean
& nbsp & nbsp & nbsp & nbsp indice SPI_GETKEYBOARDPREF
& nbsp & nbsp & nbsp & nbsp leer GetBooleanSetting
& nbsp & nbsp & nbsp & nbsp escribir SetBooleanSetting
& nbsp & nbsp & nbsp & nbsp propiedad SnapToDefButton: Boolean
& nbsp & nbsp & nbsp & nbsp indice SPI_GETSNAPTODEFBUTTON
& nbsp & nbsp & nbsp & nbsp leer GetBooleanSetting
& nbsp & nbsp & nbsp & nbsp escribir SetBooleanSetting
& nbsp & nbsp & nbsp & nbsp propiedad LeftAlignedMenus: Boolean
& nbsp & nbsp & nbsp & nbsp indice SPI_GETMENUDROPALIGNMENT
& nbsp & nbsp & nbsp & nbsp leer GetBooleanSetting
& nbsp & nbsp & nbsp & nbsp escribir SetBooleanSetting
& nbsp & nbsp & nbsp & nbsp propiedad MenuFadeAnimation: Boolean
& nbsp & nbsp & nbsp & nbsp indice SPI_GETMENUFADE
& nbsp & nbsp & nbsp & nbsp leer GetBooleanSetting
& nbsp & nbsp & nbsp & nbsp escribir SetBooleanSetting
& nbsp & nbsp & nbsp & nbsp propiedad LowPowerActive: Boolean
& nbsp & nbsp & nbsp & nbsp indice SPI_GETLOWPOWERACTIVE
& nbsp & nbsp & nbsp & nbsp leer GetBooleanSetting
& nbsp & nbsp & nbsp & nbsp escribir SetBooleanSetting
& nbsp & nbsp & nbsp & nbsp propiedad PowerOffActive: Boolean
& nbsp & nbsp & nbsp & nbsp indice SPI_GETPOWEROFFACTIVE
& nbsp & nbsp & nbsp & nbsp leer GetBooleanSetting
& nbsp & nbsp & nbsp & nbsp escribir SetBooleanSetting
& nbsp & nbsp & nbsp & nbsp propiedad SecreenSaverActive: Boolean
& nbsp & nbsp & nbsp & nbsp indice SPI_GETSCREENSAVEACTIVE
& nbsp & nbsp & nbsp & nbsp leer GetBooleanSetting
& nbsp & nbsp & nbsp & nbsp escribir SetBooleanSetting
& nbsp & nbsp & nbsp & nbsp propiedad ScreenSaverRunning: Boolean
& nbsp & nbsp & nbsp & nbsp indice SPI_GETSCREENSAVERRUNNING
& nbsp & nbsp & nbsp & nbsp leer GetBooleanSetting
& nbsp & nbsp & nbsp & nbsp escribir SetBooleanSetting
& nbsp & nbsp & nbsp & nbsp propiedad ComboBoxAnimation: Boolean
& nbsp & nbsp & nbsp & nbsp indice SPI_GETCOMBOBOXANIMATION
& nbsp & nbsp & nbsp & nbsp leer GetBooleanSetting
& nbsp & nbsp & nbsp & nbsp escribir SetBooleanSetting
& nbsp & nbsp & nbsp & nbsp propiedad CursorShadow: Boolean
& nbsp & nbsp & nbsp & nbsp indice SPI_GETCURSORSHADOW
& nbsp & nbsp & nbsp & nbsp leer GetBooleanSetting
& nbsp & nbsp & nbsp & nbsp escribir SetBooleanSetting
& nbsp & nbsp & nbsp & nbsp propiedad GradientCaptions: Boolean
& nbsp & nbsp & nbsp & nbsp indice SPI_GETGRADIENTCAPTIONS
& nbsp & nbsp & nbsp & nbsp leer GetBooleanSetting
& nbsp & nbsp & nbsp & nbsp escribir SetBooleanSetting
& nbsp & nbsp & nbsp & nbsp propiedad HotTracking: Boolean
& nbsp & nbsp & nbsp & nbsp indice SPI_GETHOTTRACKING
& nbsp & nbsp & nbsp & nbsp leer GetBooleanSetting
& nbsp & nbsp & nbsp & nbsp escribir SetBooleanSetting
& nbsp & nbsp & nbsp & nbsp propiedad ListBoxSmoothScrolling: Boolean
& nbsp & nbsp & nbsp & nbsp indice SPI_GETLISTBOXSMOOTHSCROLLING
& nbsp & nbsp & nbsp & nbsp leer GetBooleanSetting
& nbsp & nbsp & nbsp & nbsp escribir SetBooleanSetting
& nbsp & nbsp & nbsp & nbsp propiedad MenuAnimation: Boolean
& nbsp & nbsp & nbsp & nbsp indice SPI_GETMENUANIMATION
& nbsp & nbsp & nbsp & nbsp leer GetBooleanSetting
& nbsp & nbsp & nbsp & nbsp escribir SetBooleanSetting
& nbsp & nbsp & nbsp & nbsp propiedad SelectionFade: Boolean
& nbsp & nbsp & nbsp & nbsp indice SPI_GETSELECTIONFADE
& nbsp & nbsp & nbsp & nbsp leer GetBooleanSetting
& nbsp & nbsp & nbsp & nbsp escribir SetBooleanSetting
& nbsp & nbsp & nbsp & nbsp propiedad ToolTipAnimation: Boolean
& nbsp & nbsp & nbsp & nbsp indice SPI_GETTOOLTIPANIMATION
& nbsp & nbsp & nbsp & nbsp leer GetBooleanSetting
& nbsp & nbsp & nbsp & nbsp escribir SetBooleanSetting
& nbsp & nbsp & nbsp & nbsp propiedad ToolTipFade: Boolean
& nbsp & nbsp & nbsp & nbsp indice SPI_GETTOOLTIPFADE
& nbsp & nbsp & nbsp & nbsp leer GetBooleanSetting
& nbsp & nbsp & nbsp & nbsp escribir SetBooleanSetting
& nbsp & nbsp & nbsp & nbsp propiedad UIEffects: Boo ean
& nbsp & nbsp & nbsp & nbsp indice SPI_GETUIEFFECTS
& nbsp & nbsp & nbsp & nbsp leer GetBooleanSetting
& nbsp & nbsp & nbsp & nbsp escribir SetBooleanSetting
& nbsp & nbsp & nbsp & nbsp propiedad ActiveWindowTracking: Boolean
& nbsp & nbsp & nbsp & nbsp indice SPI_GETACTIVEWINDOWTRACKING
& nbsp & nbsp & nbsp & nbsp leer GetBooleanSetting
& nbsp & nbsp & nbsp & nbsp escribir SetBooleanSetting
& nbsp & nbsp & nbsp & nbsp propiedad ActiveWndTrkZone: Boolean
& nbsp & nbsp & nbsp & nbsp indice SPI_GETACTIVEWNDTRKZORDER
& nbsp & nbsp & nbsp & nbsp leer GetBooleanSetting
& nbsp & nbsp & nbsp & nbsp escribir SetBooleanSetting
& nbsp & nbsp & nbsp & nbsp propiedad Windows95Plus: Boolean
& nbsp & nbsp & nbsp & nbsp leer GetWindows95Plus
& nbsp & nbsp & nbsp & nbsp propiedad DragFullWindows: Boolean
& nbsp & nbsp & nbsp & nbsp indice SPI_GETDRAGFULLWINDOWS
& nbsp & nbsp & nbsp & nbsp leer GetBooleanSetting
& nbsp & nbsp & nbsp & nbsp escribir SetBooleanSetting
& nbsp & nbsp & nbsp & nbsp propiedad lector de pantalla: Boolean
& nbsp & nbsp & nbsp & nbsp indice SPI_GETSCREENREADER
& nbsp & nbsp & nbsp & nbsp leer GetBooleanSetting
& nbsp & nbsp & nbsp & nbsp escribir SetBooleanSetting
& nbsp & nbsp & nbsp & nbsp propiedad CanShowSounds: Boolean
& nbsp & nbsp & nbsp & nbsp indice SPI_GETSHOWSOUNDS
& nbsp & nbsp & nbsp & nbsp leer GetBooleanSetting
& nbsp & nbsp & nbsp & nbsp escribir SetBooleanSetting
& nbsp & nbsp & nbsp & nbsp propiedad FontSmoothing: Boolean
& nbsp & nbsp & nbsp & nbsp indice SPI_GETFONTSMOOTHING
& nbsp & nbsp & nbsp & nbsp leer GetBooleanSetting
& nbsp & nbsp & nbsp & nbsp escribir SetBooleanSetting
& nbsp & nbsp & nbsp & nbsp propiedad IconTitleWrap: Boolean
& nbsp & nbsp & nbsp & nbsp indice SPI_GETICONTITLEWRAP
& nbsp & nbsp & nbsp & nbsp leer GetBooleanSetting
& nbsp & nbsp & nbsp & nbsp escribir SetBooleanSetting
& nbsp & nbsp & nbsp & nbsp propiedad LowPowerTimeout: Integer
& nbsp & nbsp & nbsp & nbsp indice SPI_GETLOWPOWERTIMEOUT
& nbsp & nbsp & nbsp & nbsp leer GetIntegerSetting
& nbsp & nbsp & nbsp & nbsp escribir SetIntegerSetting
& nbsp & nbsp & nbsp & nbsp propiedad PowerOffTimeOut: Integer
& nbsp & nbsp & nbsp & nbsp indice SPI_GETPOWEROFFTIMEOUT
& nbsp & nbsp & nbsp & nbsp leer GetIntegerSetting
& nbsp & nbsp & nbsp & nbsp escribir SetIntegerSetting
& nbsp & nbsp & nbsp & nbsp propiedad ScreenSaverTimeOut: Integer
& nbsp & nbsp & nbsp & nbsp indice SPI_GETSCREENSAVETIMEOUT
& nbsp & nbsp & nbsp & nbsp leer GetIntegerSetting
& nbsp & nbsp & nbsp & nbsp escribir SetIntegerSetting
& nbsp & nbsp & nbsp & nbsp propiedad BorderWidth: Integer
& nbsp & nbsp & nbsp & nbsp indice SPI_GETBORDER
& nbsp & nbsp & nbsp & nbsp leer GetIntegerSetting
& nbsp & nbsp & nbsp & nbsp escribir SetIntegerSetting
& nbsp & nbsp & nbsp & nbsp propiedad CarretWidth: DWORD
& nbsp & nbsp & nbsp & nbsp indice SPI_GETCARETWIDTH
& nbsp & nbsp & nbsp & nbsp leer GetDWORDSetting
& nbsp & nbsp & nbsp & nbsp escribir SetDWORDSetting
& nbsp & nbsp & nbsp & nbsp propiedad WorkArea: TRect leer GetWindowsRect escribir SetWindowsRect
& nbsp & nbsp & nbsp & nbsp propiedad DoubleClickTime: UINT leer GetDoubleClkTime escribir SetDoubleClkTime
& nbsp & nbsp & nbsp & nbsp propiedad MouseSpeed: TMouseSpeed leer GetMouseSpeed escribir SetMouseSpeed
& nbsp & nbsp & nbsp & nbsp propiedad DoubleClickHeight: Entero leer GetDblClkHeigth escribir SetDblClkHeigth
& nbsp & nbsp & nbsp & nbsp propiedad DoubleClickWidth: Entero leer GetDblClkWidth escribir SetDblClkWidth
& nbsp & nbsp & nbsp & nbsp propiedad MenuShowDelay: DWORD leer GetMenuShowDelay escribir SetMenuShowDelay
& nbsp & nbsp final
aplicacion
const
& nbsp & nbsp UpdateFlag = SPIF_SENDCHANGE o SPIF_UPDATEINIFILE
{ TWindowsSystemInfo }
funcion TWindowsSystemInfo.GetBooleanSetting(Index: Integer): Boolean
empezar SystemParametersInfo(Indice, 0, @Resultado, 0) end
funcion TWindowsSystemInfo.GetDblClkHeigth: Integer
begin Result := GetSystemMetrics(SM_CYDOUBLECLK) end
funcion TWindowsSystemInfo.GetDblClkWidth: Integer
begin Result := GetSystemMetrics(SM_CXDOUBLECLK) end
funcion TWindowsSystemInfo.GetDoubleClkTime: UINT
begin Result := GetDoubleClickTime final
funcion TWindowsSystemInfo.GetDWORDSetting(Index: Integer): DWORD
empezar SystemParametersInfo(Indice, 0, @Resultado, 0) end
funcion TWindowsSystemInfo.GetIntegerSetting(Index: Integer): Integer
empezar SystemParametersInfo(Indice, 0, @Resultado, 0) end
funcion TWindowsSystemInfo.GetMenuShowDelay: DWORD
empezar SystemParametersInfo(SPI_GETMENUSHOWDELAY, 0, @Resultado, 0) end
funcion TWindowsSystemInfo.GetMouseSpeed: TMouseSpeed
empezar SystemParametersInfo(SPI_GETMOUSESPEED, 0, @Resultado, 0) end
funcion TWindowsSystemInfo.GetWindows95Plus: Boolean
begin Result := SystemParametersInfo(SPI_GETWINDOWSEXTENSION, 1, nil, 0) end
funcion TWindowsSystemInfo.GetWindowsRect: TRect
empezar SystemParametersInfo(SPI_GETWORKAREA, 0, @Resultado, 0) end
procedimiento TWindowsSystemInfo.ReloadSystemCursors
empezar SystemParametersInfo(SPI_SETCURSORS, 0, nil, UpdateFlag) end
procedimiento TWindowsSystemInfo.SetBooleanSetting(Index: Integer
& nbsp & nbsp Valor: Boolean)
var RealIndex: el Cardenal
& nbsp & nbsp NewStyle: Boolean
begin
& nbsp & nbsp RealIndex := NULL
& nbsp & nbsp NewStyle := False
& nbsp & nbsp caso Indice de
& nbsp & nbsp & nbsp & nbsp SPI_GETICONTITLEWRAP: RealIndex := SPI_SETICONTITLEWRAP
& nbsp & nbsp & nbsp & nbsp SPI_GETFONTSMOOTHING: RealIndex := SPI_SETFONTSMOOTHING
& nbsp & nbsp & nbsp & nbsp SPI_GETDRAGFULLWINDOWS: RealIndex := SPI_SETDRAGFULLWINDOWS
& nbsp & nbsp & nbsp & nbsp SPI_GETBEEP : RealIndex := SPI_SETBEEP
& nbsp & nbsp & nbsp & nbsp SPI_GETKEYBOARDCUES: RealIndex := SPI_SETKEYBOARDCUES
& nbsp & nbsp & nbsp & nbsp SPI_GETKEYBOARDPREF: RealIndex := SPI_SETKEYBOARDPREF
& nbsp & nbsp & nbsp & nbsp SPI_GETSNAPTODEFBUTTON: RealIndex := SPI_SETSNAPTODEFBUTTON
& nbsp & nbsp & nbsp & nbsp SPI_GETMENUDROPALIGNMENT:RealIndex := SPI_SETMENUDROPALIGNMENT
& nbsp & nbsp & nbsp & nbsp SPI_GETMENUFADE : RealIndex := SPI_SETMENUFADE
& nbsp & nbsp & nbsp & nbsp SPI_GETSHOWSOUNDS : RealIndex := SPI_SETSHOWSOUNDS
& nbsp & nbsp & nbsp & nbsp SPI_GETLOWPOWERACTIVE : RealIndex := SPI_SETLOWPOWERACTIVE
& nbsp & nbsp & nbsp & nbsp SPI_GETPOWEROFFACTIVE : RealIndex := SPI_SETPOWEROFFACTIVE
& nbsp & nbsp & nbsp & nbsp SPI_GETSCREENSAVEACTIVE:RealIndex:= SPI_SETSCREENSAVEACTIVE
& nbsp & nbsp & nbsp & nbsp SPI_GETACTIVEWNDTRKZORDER: comenzar RealIndex:= SPI_SETACTIVEWNDTRKZORDER
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp NewStyle:= True end
& nbsp & nbsp & nbsp & nbsp SPI_GETSCREENREADER: RealIndex := SPI_SETSCREENREADER
& nbsp & nbsp & nbsp & nbsp SPI_GETHOTTRACKING: comenzar RealIndex:= SPI_SETHOTTRACKING
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp NewStyle := True end
& nbsp & nbsp & nbsp & nbsp SPI_GETUIEFFECTS: comenzar RealIndex:= SPI_SETUIEFFECTS
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp NewStyle := True end
& nbsp & nbsp & nbsp & nbsp SPI_GETTOOLTIPFADE: comenzar RealIndex:= SPI_SETTOOLTIPFADE
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp NewStyle := True end
& nbsp & nbsp & nbsp & nbsp SPI_GETACTIVEWINDOWTRACKING: comenzar RealIndex:= SPI_SETACTIVEWINDOWTRACKING
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp NewStyle := True end
& nbsp & nbsp & nbsp & nbsp SPI_GETMENUANIMATION: comenzar RealIndex:= SPI_SETMENUANIMATION NewStyle := True end
& nbsp & nbsp & nbsp & nbsp SPI_GETLISTBOXSMOOTHSCROLLING: comenzar RealIndex:= SPI_SETLISTBOXSMOOTHSCROLLING
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp NewStyle := True end
& nbsp & nbsp & nbsp & nbsp SPI_GETSCREENSAVERRUNNING: // RealIndex := SPI_SETSCREENSAVERRUNNING
& nbsp & nbsp & nbsp & nbsp SPI_GETCOMBOBOXANIMATION: comenzar RealIndex := SPI_SETCOMBOBOXANIMATION
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp NewStyle := True end
& nbsp & nbsp & nbsp & nbsp SPI_GETGRADIENTCAPTIONS: comenzar RealIndex:= SPI_SETGRADIENTCAPTIONS
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp NewStyle := True end
& nbsp & nbsp & nbsp & nbsp SPI_GETSELECTIONFADE: comenzar RealIndex := SPI_SETSELECTIONFADE
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp NewStyle := True end
& nbsp & nbsp & nbsp & nbsp SPI_SETTOOLTIPANIMATION: comenzar RealIndex:= SPI_SETTOOLTIPANIMATION
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp NewStyle := True end
& nbsp & nbsp & nbsp & nbsp SPI_GETCURSORSHADOW: RealIndex := SPI_SETCURSORSHADOW
& nbsp & nbsp final
& nbsp & nbsp si NewStyle, a continuacion,
& nbsp & nbsp & nbsp & nbsp SystemParametersInfo( RealIndex, 0, @Valor, UpdateFlag)
& nbsp & nbsp else
& nbsp & nbsp & nbsp & nbsp SystemParametersInfo(RealIndex, el Cardenal(Valor), nil, UpdateFlag)
fin
procedimiento TWindowsSystemInfo.SetDblClkHeigth(const Valor: Integer)
empezar SystemParametersInfo(SPI_SETDOUBLECLKHEIGHT, Valor, nil, UpdateFlag) end
procedimiento TWindowsSystemInfo.SetDblClkWidth(const Valor: Integer)
begin
fin
procedimiento TWindowsSystemInfo.SetDoubleClkTime(const Value: UINT)
empezar SetDoubleClickTime( Valor ) end
procedimiento TWindowsSystemInfo.SetDWORDSetting(Index: Integer Valor: DWORD)
var RealIndex: el Cardenal
& nbsp & nbsp NewStyle: Boolean
begin
& nbsp & nbsp RealIndex:= NULL
& nbsp & nbsp NewStyle := False
& nbsp & nbsp caso Indice de
& nbsp & nbsp & nbsp & nbsp SPI_GETACTIVEWNDTRKTIMEOUT:
& nbsp & nbsp & nbsp & nbsp comenzar RealIndex := SPI_SETACTIVEWNDTRKTIMEOUT NewStyle := True end
& nbsp & nbsp & nbsp & nbsp SPI_GETCARETWIDTH:
& nbsp & nbsp & nbsp & nbsp comenzar RealIndex := SPI_SETCARETWIDTH NewStyle := True end
& nbsp & nbsp final
& nbsp & nbsp si NewStyle, a continuacion,
& nbsp & nbsp & nbsp & nbsp SystemParametersInfo(RealIndex, 0, @Valor, UpdateFlag)
& nbsp & nbsp else
& nbsp & nbsp & nbsp & nbsp SystemParametersInfo(RealIndex, Valor, nil, UpdateFlag)
fin
procedimiento TWindowsSystemInfo.SetIntegerSetting(Indice, Valor: Integer)
var
& nbsp & nbsp RealIndex: el Cardenal
begin
& nbsp & nbsp RealIndex:= NULL
& nbsp & nbsp caso Indice de
& nbsp & nbsp & nbsp & nbsp SPI_GETLOWPOWERTIMEOUT: RealIndex := SPI_SETLOWPOWERTIMEOUT
& nbsp & nbsp & nbsp & nbsp SPI_GETPOWEROFFTIMEOUT: RealIndex := SPI_SETPOWEROFFTIMEOUT
& nbsp & nbsp & nbsp & nbsp SPI_GETSCREENSAVETIMEOUT: RealIndex := SPI_SETSCREENSAVETIMEOUT
& nbsp & nbsp & nbsp & nbsp SPI_GETBORDER: RealIndex := SPI_SETBORDER
& nbsp & nbsp final
& nbsp & nbsp SystemParametersInfo(RealIndex, Valor, nil, UpdateFlag)
fin
procedimiento TWindowsSystemInfo.SetMenuShowDelay(const Valor: DWORD)
empezar SystemParametersInfo(SPI_SETMENUSHOWDELAY, Valor, nil, UpdateFlag) end
procedimiento TWindowsSystemInfo.SetMouseSpeed(const Value: TMouseSpeed)
empezar SystemParametersInfo(SPI_SETMOUSESPEED, 0, @Valor, UpdateFlag) end
procedimiento TWindowsSystemInfo.SetWindowsRect(const Value: TRect)
empezar SystemParametersInfo(SPI_SETWORKAREA, 0, @Valor, UpdateFlag) end
final.
{const
& nbsp & nbsp SPI_GETBEEP = 1
& nbsp & nbsp SPI_SETBEEP = 2
& nbsp & nbsp SPI_GETMOUSE = 3
& nbsp & nbsp SPI_SETMOUSE = 4
& nbsp & nbsp SPI_GETBORDER = 5
& nbsp & nbsp SPI_SETBORDER = 6
& nbsp & nbsp SPI_GETKEYBOARDSPEED = 10
& nbsp & nbsp SPI_SETKEYBOARDSPEED = 11
& nbsp & nbsp SPI_LANGDRIVER = 12
& nbsp & nbsp SPI_ICONHORIZONTALSPACING = 13
& nbsp & nbsp SPI_GETSCREENSAVETIMEOUT = 14
& nbsp & nbsp SPI_SETSCREENSAVETIMEOUT = 15
& nbsp & nbsp SPI_GETSCREENSAVEACTIVE = 16
& nbsp & nbsp SPI_SETSCREENSAVEACTIVE = 17
& nbsp & nbsp SPI_GETGRIDGRANULARITY = 18
& nbsp & nbsp SPI_SETGRIDGRANULARITY = 19
& nbsp & nbsp SPI_SETDESKPATTERN = 21
& nbsp & nbsp SPI_GETKEYBOARDDELAY = 22
& nbsp & nbsp SPI_SETKEYBOARDDELAY = 23
& nbsp & nbsp SPI_ICONVERTICALSPACING = 24
& nbsp & nbsp SPI_GETICONTITLEWRAP = 25
& nbsp & nbsp SPI_SETICONTITLEWRAP = 26
& nbsp & nbsp SPI_GETMENUDROPALIGNMENT = 27
& nbsp & nbsp SPI_SETMENUDROPALIGNMENT = 28
& nbsp & nbsp SPI_SETDOUBLECLKWIDTH = 29
& nbsp & nbsp SPI_SETDOUBLECLKHEIGHT = 30
& nbsp & nbsp SPI_GETICONTITLELOGFONT = 31
& nbsp & nbsp SPI_SETDOUBLECLICKTIME = 32
& nbsp & nbsp SPI_SETMOUSEBUTTONSWAP = 33
& nbsp & nbsp SPI_SETICONTITLELOGFONT = 34
& nbsp & nbsp SPI_GETFASTTASKSWITCH = 35
& nbsp & nbsp SPI_SETFASTTASKSWITCH = 36
& nbsp & nbsp SPI_SETDRAGFULLWINDOWS = 37
& nbsp & nbsp SPI_GETDRAGFULLWINDOWS = 38
& nbsp & nbsp SPI_GETNONCLIENTMETRICS = 41
& nbsp & nbsp SPI_SETNONCLIENTMETRICS = 42
& nbsp & nbsp SPI_GETMINIMIZEDMETRICS = 43
& nbsp & nbsp SPI_SETMINIMIZEDMETRICS = 44
& nbsp & nbsp SPI_GETICONMETRICS = 45
& nbsp & nbsp SPI_SETICONMETRICS = 46
& nbsp & nbsp SPI_SETWORKAREA = 47
& nbsp & nbsp SPI_GETWORKAREA = 48
& nbsp & nbsp SPI_SETPENWINDOWS = 49
& nbsp & nbsp SPI_GETHIGHCONTRAST = 66
& nbsp & nbsp SPI_SETHIGHCONTRAST = 67
& nbsp & nbsp SPI_GETKEYBOARDPREF = 68
& nbsp & nbsp SPI_SETKEYBOARDPREF = 69
& nbsp & nbsp SPI_GETSCREENREADER = 70
& nbsp & nbsp SPI_SETSCREENREADER = 71
& nbsp & nbsp SPI_GETANIMATION = 72
& nbsp & nbsp SPI_SETANIMATION = 73
& nbsp & nbsp SPI_GETFONTSMOOTHING = 74
& nbsp & nbsp SPI_SETFONTSMOOTHING = 75
& nbsp & nbsp SPI_SETDRAGWIDTH = 76
& nbsp & nbsp SPI_SETDRAGHEIGHT = 77
& nbsp & nbsp SPI_SETHANDHELD = 78
& nbsp & nbsp SPI_GETLOWPOWERTIMEOUT = 79
& nbsp & nbsp SPI_GETPOWEROFFTIMEOUT = 80
& nbsp & nbsp SPI_SETLOWPOWERTIMEOUT = 81
& nbsp & nbsp SPI_SETPOWEROFFTIMEOUT = 82
& nbsp & nbsp SPI_GETLOWPOWERACTIVE = 83
& nbsp & nbsp SPI_GETPOWEROFFACTIVE = 84
& nbsp & nbsp SPI_SETLOWPOWERACTIVE = 85
& nbsp & nbsp SPI_SETPOWEROFFACTIVE = 86
& nbsp & nbsp SPI_SETCURSORS = 87
& nbsp & nbsp SPI_SETICONS = 88
& nbsp & nbsp SPI_GETDEFAULTINPUTLANG = 89
& nbsp & nbsp SPI_SETDEFAULTINPUTLANG = 90
& nbsp & nbsp SPI_SETLANGTOGGLE = 91
& nbsp & nbsp SPI_GETWINDOWSEXTENSION = 92
& nbsp & nbsp SPI_SETMOUSETRAILS = 93
& nbsp & nbsp SPI_GETMOUSETRAILS = 94
& nbsp & nbsp SPI_SETSCREENSAVERRUNNING = 97
& nbsp & nbsp SPI_SCREENSAVERRUNNING = SPI_SETSCREENSAVERRUNNING
& nbsp & nbsp SPI_GETFILTERKEYS = 50
& nbsp & nbsp SPI_SETFILTERKEYS = 51
& nbsp & nbsp SPI_GETTOGGLEKEYS = 52
& nbsp & nbsp SPI_SETTOGGLEKEYS = 53
& nbsp & nbsp SPI_GETMOUSEKEYS = 54
& nbsp & nbsp SPI_SETMOUSEKEYS = 55
& nbsp & nbsp SPI_GETSHOWSOUNDS = 56
& nbsp & nbsp SPI_SETSHOWSOUNDS = 57
& nbsp & nbsp SPI_GETSTICKYKEYS = 58
& nbsp & nbsp SPI_SETSTICKYKEYS = 59
& nbsp & nbsp SPI_GETACCESSTIMEOUT = 60
& nbsp & nbsp SPI_SETACCESSTIMEOUT = 61
& nbsp & nbsp SPI_GETSERIALKEYS = 62
& nbsp & nbsp SPI_SETSERIALKEYS = 63
& nbsp & nbsp SPI_GETSOUNDSENTRY = 64
& nbsp & nbsp SPI_SETSOUNDSENTRY = 65
& nbsp & nbsp SPI_GETSNAPTODEFBUTTON = 95
& nbsp & nbsp SPI_SETSNAPTODEFBUTTON = 96
& nbsp & nbsp SPI_GETMOUSEHOVERWIDTH = 98
& nbsp & nbsp SPI_SETMOUSEHOVERWIDTH = 99
& nbsp & nbsp SPI_GETMOUSEHOVERHEIGHT = 100
& nbsp & nbsp SPI_SETMOUSEHOVERHEIGHT = 101
& nbsp & nbsp SPI_GETMOUSEHOVERTIME = 102
& nbsp & nbsp SPI_SETMOUSEHOVERTIME = 103
& nbsp & nbsp SPI_GETWHEELSCROLLLINES = 104
& nbsp & nbsp SPI_SETWHEELSCROLLLINES = 105

& nbsp & nbsp SPI_GETSHOWIMEUI = 110
& nbsp & nbsp SPI_SETSHOWIMEUI = 111
& nbsp & nbsp SPI_GETMOUSESPEED = 112
& nbsp & nbsp SPI_SETMOUSESPEED = 113
& nbsp & nbsp SPI_GETSCREENSAVERRUNNING = 114
& nbsp & nbsp SPI_GETACTIVEWINDOWTRACKING = $1000
& nbsp & nbsp SPI_SETACTIVEWINDOWTRACKING = $1001
& nbsp & nbsp SPI_GETMENUANIMATION = $1002
& nbsp & nbsp SPI_SETMENUANIMATION = $1003
& nbsp & nbsp SPI_GETCOMBOBOXANIMATION = $1004
& nbsp & nbsp SPI_SETCOMBOBOXANIMATION = $1005
& nbsp & nbsp SPI_GETLISTBOXSMOOTHSCROLLING = $1006
& nbsp & nbsp SPI_SETLISTBOXSMOOTHSCROLLING = $1007
& nbsp & nbsp SPI_GETGRADIENTCAPTIONS = $1008
& nbsp & nbsp SPI_SETGRADIENTCAPTIONS = $1009
& nbsp & nbsp SPI_GETKEYBOARDCUES = de $100 A
& nbsp & nbsp SPI_GETMENUUNDERLINES = SPI_GETKEYBOARDCUES
& nbsp & nbsp SPI_SETMENUUNDERLINES = SPI_SETKEYBOARDCUES
& nbsp & nbsp SPI_GETACTIVEWNDTRKZORDER = $100C
& nbsp & nbsp SPI_SETACTIVEWNDTRKZORDER = $100D
& nbsp & nbsp SPI_GETHOTTRACKING = $100E
& nbsp & nbsp SPI_SETHOTTRACKING = $100F
& nbsp & nbsp SPI_GETSELECTIONFADE = $1014
& nbsp & nbsp SPI_SETSELECTIONFADE = $1015
& nbsp & nbsp SPI_GETTOOLTIPANIMATION = $1016
& nbsp & nbsp SPI_SETTOOLTIPANIMATION = $1017
& nbsp & nbsp SPI_GETTOOLTIPFADE = $1018
& nbsp & nbsp SPI_SETTOOLTIPFADE = $1019
& nbsp & nbsp SPI_GETCURSORSHADOW = $101A
& nbsp & nbsp SPI_SETCURSORSHADOW = $101B
& nbsp & nbsp SPI_GETUIEFFECTS = $103E
& nbsp & nbsp SPI_SETUIEFFECTS = $103F
& nbsp & nbsp SPI_GETFOREGROUNDLOCKTIMEOUT = $2000
& nbsp & nbsp SPI_SETFOREGROUNDLOCKTIMEOUT = $2001
& nbsp & nbsp SPI_GETACTIVEWNDTRKTIMEOUT = $2002
& nbsp & nbsp SPI_SETACTIVEWNDTRKTIMEOUT = $2003
& nbsp & nbsp SPI_GETFOREGROUNDFLASHCOUNT = $2004
& nbsp & nbsp SPI_SETFOREGROUNDFLASHCOUNT = $2005
& nbsp & nbsp SPI_GETCARETWIDTH = $2006
& nbsp & nbsp SPI_SETCARETWIDTH = $2007
}
para obtener mas informacion u podria utilizar Microsoft Developers Network (hey cuesta un ojo, pero aqui esta la informacion que usted conseguira leer abajo) me dejo el otro get/set de parametros constantes definidas en el codigo de arriba, voy a actualizar este articulo asap pero si alguien quisiera ayudar es bienvenido
< & & & & & & & & & COMENZAR a MSDN EXTRACTO SOBRE SYSTEMPARAMETERS INFO & & & & & & & ->
SystemParametersInfo
La funcion de SystemParametersInfo recupera o establece el valor de uno de los parametros de todo el sistema. Esta funcion tambien puede actualizar el perfil de usuario durante la configuracion de un parametro.
BOOL SystemParametersInfo(
& nbsp & nbsp UINT uiAction, // parametro del sistema para recuperar o establecer
& nbsp & nbsp UINT uiParam, // depende de la accion a ser tomada
& nbsp & nbsp PVOID pvParam, // depende de la accion a ser tomada
& nbsp & nbsp UINT fWinIni // perfil de usuario la opcion de actualizacion
)
Parametros
uiAction
[en] Especifica el sistema de ancho de parametro para recuperar o establecer. Este parametro puede ser uno de los valores de las siguientes tablas.
los siguientes son Los parametros de accesibilidad. Accesibilidad parametro Significado
SPI_GETACCESSTIMEOUT Recupera informacion sobre el periodo de tiempo asociado con las caracteristicas de accesibilidad. El parametro pvParam debe apuntar a un ACCESSTIMEOUT estructura que recibe la informacion. Establecer el cbSize miembro de esta estructura y el parametro uiParam en sizeof(ACCESSTIMEOUT).
SPI_GETFILTERKEYS Recupera informacion acerca de la FilterKeys caracteristica de accesibilidad. El parametro pvParam debe apuntar a un FILTERKEYS estructura que recibe la informacion. Establecer el cbSize miembro de esta estructura y el parametro uiParam en sizeof(FILTERKEYS).
SPI_GETHIGHCONTRAST Windows 95/98, Windows 2000: Recupera informacion sobre el HighContrast caracteristica de accesibilidad. El parametro pvParam debe apuntar a un HIGHCONTRAST estructura que recibe la informacion. Establecer el cbSize miembro de esta estructura y el parametro uiParam en sizeof(HIGHCONTRAST).
SPI_GETMOUSECLICKLOCK Windows Me: Obtiene el estado del bloqueo de clic de Raton caracteristica. El parametro pvParam debe apuntar a una variable de tipo BOOL que recibe TRUE si esta habilitado, o FALSE en caso contrario.
SPI_GETMOUSECLICKLOCKTIME Windows Me: Obtiene el tiempo de retraso antes de que el boton principal del raton esta bloqueado. El parametro pvParam debe apuntar a DWORD que recibe el tiempo de retardo. Esto solo esta habilitado si SPI_SETMOUSECLICKLOCK se establece en TRUE.
SPI_GETMOUSEKEYS Recupera informacion acerca de la accesibilidad de MouseKeys caracteristica. El parametro pvParam debe apuntar a un MOUSEKEYS estructura que recibe la informacion. Establecer el cbSize miembro de esta estructura y el parametro uiParam en sizeof(MOUSEKEYS).
SPI_GETMOUSESONAR Windows Me: Obtiene el estado del Raton Sonar caracteristica. El parametro pvParam debe apuntar a una variable de tipo BOOL que recibe TRUE si esta habilitado o FALSE en caso contrario.
SPI_GETMOUSEVANISH Windows Me: Obtiene el estado del Raton se Desvanecen caracteristica. El parametro pvParam debe apuntar a una variable de tipo BOOL que recibe TRUE si esta habilitado o FALSE en caso contrario.
SPI_GETSCREENREADER Windows 95/98, Windows 2000: Determina si un revisor de pantalla de la utilidad se ejecuta. Un revisor de pantalla de la utilidad dirige la informacion textual a un dispositivo de salida, como un sintetizador de voz o Braille. Cuando se establece este indicador, una aplicacion debe proporcionar la informacion textual en situaciones donde no tendria de otra forma de presentar la informacion de forma grafica.
El parametro pvParam es un puntero a una variable de tipo BOOL que recibe TRUE si un revisor de pantalla de la utilidad se ejecuta, o FALSE en caso contrario.
SPI_GETSERIALKEYS Windows 95/98: Recupera informacion acerca de la caracteristica de accesibilidad SerialKeys. El parametro pvParam debe apuntar a un SERIALKEYS estructura que recibe la informacion. Establecer el cbSize miembro de esta estructura y el parametro uiParam en sizeof(SERIALKEYS).
Windows NT/2000: No se admite.
SPI_GETSHOWSOUNDS Determina si el Espectaculo de Sonidos de accesibilidad indicador esta encendido o apagado. Si esta activada, el usuario requiere de una aplicacion para presentar la informacion de forma visual en situaciones donde no tendria de otra forma de presentar la informacion en forma audible. El parametro pvParam debe apuntar a una variable de tipo BOOL que recibe TRUE si la funcion esta activada, o FALSE si esta apagado.
el Uso de este valor es equivalente a la llamada GetSystemMetrics (SM_SHOWSOUNDS). Que es el recomendado.
SPI_GETSOUNDSENTRY Recupera informacion acerca de la SoundSentry caracteristica de accesibilidad. El parametro pvParam debe apuntar a un SOUNDSENTRY estructura que recibe la informacion. Establecer el cbSize miembro de esta estructura y el parametro uiParam en sizeof(SOUNDSENTRY).
SPI_GETSTICKYKEYS Recupera informacion acerca de las teclas especiales caracteristica de accesibilidad. El parametro pvParam debe apuntar a un STICKYKEYS estructura que recibe la informacion. Establecer el cbSize miembro de esta estructura y el parametro uiParam en sizeof(STICKYKEYS).
SPI_GETTOGGLEKEYS Recupera informacion acerca de la ToggleKeys caracteristica de accesibilidad. El parametro pvParam debe apuntar a un TOGGLEKEYS estructura que recibe la informacion. Establecer el cbSize miembro de esta estructura y el parametro uiParam en sizeof(TOGGLEKEYS).
SPI_SETACCESSTIMEOUT Se