Control panel access in Windows

Oliver_Scott-Brown · January 18, 2014, 4:24pm

I am unsure on whether there are any equivalents for different operating system for this specific part of the control panel but how do I check the Performance Options in Windows.

There is a specific option of ‘Animate controls and elements inside windows.’. I want to see if this option is ticked so that my app can adapt to these settings.

Thanks

Oliver_Scott-Brown · January 18, 2014, 4:25pm

Oliver_Osswald · January 18, 2014, 5:15pm

Check animation info:

[code]Private Function imIsMinAnimationOn() As Boolean
#If TargetWin32

Declare Function SystemParametersInfo Lib "user32" _
Alias "SystemParametersInfoA" (uAction As Integer, _
uParam As Integer, ByRef lpvParam As ANIMATIONINFO, _
fuWinIni As Integer) As Integer

Dim ai As ANIMATIONINFO
ai.lngSize = 8

Call SystemParametersInfo(SPI_GETANIMATION,ai.lngSize,ai,0)

If ai.lngMinAnimate = 0 Then
  Return False
Else
  Return True
End If

#EndIf
End Function
[/code]

Check whether FullWindowDrag is on:

[code]Private Function imIsFullWindowDragOn() As Boolean
#If TargetWin32
Dim result As Integer = 0

Declare Function SystemParametersInfo Lib "user32" _
Alias "SystemParametersInfoA" (uAction As Integer, _
uParam As Integer, ByRef lpvParam As Integer, _
fuWinIni As Integer) As Integer

Call SystemParametersInfo(SPI_GETDRAGFULLWINDOWS,0,result,0)

If result = 0 Then
  Return False
Else
  Return True
End If

#EndIf

End Function
[/code]

For more SPI_ constants check the notes in this example project:
http://osswald.com/xojo/WindowPerformanceOptionsOFF.xojo_binary_project.zip

Oliver_Scott-Brown · January 18, 2014, 5:18pm

[quote=59920:@Oliver Osswald]Check animation info: