dllcall to SystemParametersInfo

[thor918]

Hi,

I'm just experimenting with the dllcall to SystemParametersInfo.

my goal is to turn off visual effects... you know the setting you get in

mycomputer->properties->advanced->performance settings-> adjust for best performance

$SPI_SETDESKWALLPAPER = 20
   $SPIF_UPDATEINIFILE = 0x1
   $SPIF_SENDWININICHANGE = 0x2
   $SPIF_SENDCHANGE = $SPIF_SENDWININICHANGE
   $SPI_GETUIEFFECTS = 0x103E
   $SPI_SETUIEFFECTS = 4159; 0x103F
   $SPI_SETDRAGFULLWINDOWS = 37
   Local $REG_DESKTOP= "HKEY_CURRENT_USER\Control Panel\Desktop"

;; Disabling all visual effects.
         $err = DllCall("user32.dll", "int", "SystemParametersInfo", _
            "int", $SPI_SETUIEFFECTS, _
            "int", 0, _
            "int", 0, _
            "int", BitOR($SPIF_UPDATEINIFILE, $SPIF_SENDWININICHANGE))
            
            If @error <> 0 Then
                MsgBox( 4096, "Dll Error!!!", "There was an error making the Dll call." & @CR & "Error Code: " & @error )
            EndIf

this does not work, and does not return any errors.

anyone know what to change to get it working?

here is the code I'm replicating to autoit:

http://www.msfn.org/board/Disabling-Visual...ost-t16997.html

it's a visual basic 6 code. however I don't have visual basic on my computer any more. I can get the walpaper api working by the way.

Edited March 9, 2008 by thor918

[martin]

Hi,

I'm just experimenting with the dllcall to SystemParametersInfo.

my goal is to turn off visual effects... you know the setting you get in

mycomputer->properties->advanced->performance settings-> adjust for best performance

$SPI_SETDESKWALLPAPER = 20
   $SPIF_UPDATEINIFILE = 0x1
   $SPIF_SENDWININICHANGE = 0x2
   $SPIF_SENDCHANGE = $SPIF_SENDWININICHANGE
   $SPI_GETUIEFFECTS = 0x103E
   $SPI_SETUIEFFECTS = 4159; 0x103F
   $SPI_SETDRAGFULLWINDOWS = 37
   Local $REG_DESKTOP= "HKEY_CURRENT_USER\Control Panel\Desktop"

;; Disabling all visual effects.
         $err = DllCall("user32.dll", "int", "SystemParametersInfo", _
            "int", $SPI_SETUIEFFECTS, _
            "int", 0, _
            "int", 0, _
            "int", BitOR($SPIF_UPDATEINIFILE, $SPIF_SENDWININICHANGE))
            
            If @error <> 0 Then
                MsgBox( 4096, "Dll Error!!!", "There was an error making the Dll call." & @CR & "Error Code: " & @error )
            EndIf

this does not work, and does not return any errors.

anyone know what to change to get it working?

here is the code I'm replicating to autoit:

http://www.msfn.org/board/Disabling-Visual...ost-t16997.html

it's a visual basic 6 code. however I don't have visual basic on my computer any more. I can get the walpaper api working by the way.

I don't see what's wrong, but I find some of the descriptions by Microsoft to be a bit confusing. The parameter pvParam is of type inout and the 'p' prefix suggests to me that it is a pointer. (I have been wrong about this before though). However, I wonder if it should be a pointer and only 0 if it's not used. If so then you need something like

$Bstruct = DllStructCreate("int")
DllStructSetData($Bstruct,1,0)

$err = DllCall("user32.dll", "int", "SystemParametersInfo", _
            "int", $SPI_SETUIEFFECTS, _
            "int", 0, _
            "ptr", DllStructGetPtr($Bstruct), _
            "int", BitOR($SPIF_UPDATEINIFILE, $SPIF_SENDWININICHANGE))

I'm not optimistic but maybe it's worth a try.

[thor918]

I don't see what's wrong, but I find some of the descriptions by Microsoft to be a bit confusing. The parameter pvParam is of type inout and the 'p' prefix suggests to me that it is a pointer. (I have been wrong about this before though). However, I wonder if it should be a pointer and only 0 if it's not used. If so then you need something like

$Bstruct = DllStructCreate("int")
DllStructSetData($Bstruct,1,0)

$err = DllCall("user32.dll", "int", "SystemParametersInfo", _
            "int", $SPI_SETUIEFFECTS, _
            "int", 0, _
            "ptr", DllStructGetPtr($Bstruct), _
            "int", BitOR($SPIF_UPDATEINIFILE, $SPIF_SENDWININICHANGE))

I'm not optimistic but maybe it's worth a try.

Thanks!

The code however did nothing more with your changes either.

If I only had vb6 in my system, I would try the original code and see if it does what it is suppose to do on my system.

[wraithdu]

Why did you change the $SPI_SETUIEFFECTS constant to decimal? Also, success for this function is a non-zero return value, and I don't think you check it with @error, should be $err[0]. @error checks success/failure of the DllCall function only. You'll need to use the GetLastError for more info (according to MSDN). Try changing it back to hex and this maybe -

Const $SPI_SETDESKWALLPAPER = 20
Const $SPIF_UPDATEINIFILE = 0x0001
Const $SPIF_SENDWININICHANGE = 0x0002
Const $SPIF_SENDCHANGE = $SPIF_SENDWININICHANGE
Const $SPI_GETUIEFFECTS = 0x103E
Const $SPI_SETUIEFFECTS = 0x103F
Const $SPI_SETDRAGFULLWINDOWS = 37
Local $REG_DESKTOP= "HKEY_CURRENT_USER\Control Panel\Desktop"

;; Disabling all visual effects.
         $err = DllCall("user32.dll", "int", "SystemParametersInfoA", _
            "int", $SPI_SETUIEFFECTS, _
            "int", 0, _
            "int", 0, _
            "int", BitOR($SPIF_UPDATEINIFILE, $SPIF_SENDWININICHANGE))
            
            If $err[0] == 0 Then
                MsgBox( 4096, "Dll Error!!!", "There was an error making the Dll call." & @CR & "Error Code: " & $err[0] )
            EndIf

Edited March 9, 2008 by wraithdu

[thor918]

Why did you change the $SPI_SETUIEFFECTS constant to decimal? Also, success for this function is a non-zero return value, and I don't think you check it with @error, should be $err[0]. @error checks success/failure of the DllCall function only. You'll need to use the GetLastError for more info (according to MSDN). Try changing it back to hex and this maybe -

Const $SPI_SETDESKWALLPAPER = 20
Const $SPIF_UPDATEINIFILE = 0x0001
Const $SPIF_SENDWININICHANGE = 0x0002
Const $SPIF_SENDCHANGE = $SPIF_SENDWININICHANGE
Const $SPI_GETUIEFFECTS = 0x103E
Const $SPI_SETUIEFFECTS = 0x103F
Const $SPI_SETDRAGFULLWINDOWS = 37
Local $REG_DESKTOP= "HKEY_CURRENT_USER\Control Panel\Desktop"

;; Disabling all visual effects.
         $err = DllCall("user32.dll", "int", "SystemParametersInfoA", _
            "int", $SPI_SETUIEFFECTS, _
            "int", 0, _
            "int", 0, _
            "int", BitOR($SPIF_UPDATEINIFILE, $SPIF_SENDWININICHANGE))
            
            If $err[0] == 0 Then
                MsgBox( 4096, "Dll Error!!!", "There was an error making the Dll call." & @CR & "Error Code: " & $err[0] )
            EndIf

Thanks for the reply

I was just testing in decimal because SPI_SETDESKWALLPAPER is in decimal, and that call I have tested successfully.

However I have tested $SPI_SETUIEFFECTS in both hex and decimal, unsuccessfull.

working SPI_SETDESKWALLPAPER-code below:

;~  ;; remove wallpaper!
         $err = DllCall("user32.dll", "int", "SystemParametersInfo", _
            "int", $SPI_SETDESKWALLPAPER, _
            "int", 0, _
            "str", "", _
            "int", BitOR($SPIF_UPDATEINIFILE, $SPIF_SENDCHANGE))
            
            If @error <> 0 Then
                MsgBox( 4096, "Dll Error!!!", "There was an error making the Dll call." & @CR & "Error Code: " & @error )
            EndIf

[thor918]

I'm starting to think that SPI_SETUIEFFECTS api dosent work.

have anyone gotten this to work in any scripting language?

[wraithdu]

I have no idea why this works today, but it does -

Const $SPI_SETUIEFFECTS = 0x103F
Const $SPIF_UPDATEINIFILE = 0x0001
Const $SPIF_SENDCHANGE = 0x0002

$ret = DllCall("User32", "int", "SystemParametersInfo", _
                        "int", $SPI_SETUIEFFECTS, _
                        "int", 0, _
                        "int", 0, _
                        "int", BitOR($SPIF_UPDATEINIFILE, $SPIF_SENDCHANGE) _
                        )
MsgBox(0, "", $ret[0])

Does this work for anyone else, or do I have a golden work computer???

[thor918]

I have no idea why this works today, but it does -

Const $SPI_SETUIEFFECTS = 0x103F
Const $SPIF_UPDATEINIFILE = 0x0001
Const $SPIF_SENDCHANGE = 0x0002

$ret = DllCall("User32", "int", "SystemParametersInfo", _
                        "int", $SPI_SETUIEFFECTS, _
                        "int", 0, _
                        "int", 0, _
                        "int", BitOR($SPIF_UPDATEINIFILE, $SPIF_SENDCHANGE) _
                        )
MsgBox(0, "", $ret[0])

Does this work for anyone else, or do I have a golden work computer???

Hi!

I started to need this hack again.

and yes it works perfectly with the code you posted last time.

windows just dosent update the checkboxes under "mycomputer->properties->advanced->performance settings", but it does infact do disable all effects!

a litle comical but if you try to get it back using normal gui, you can't do it. to enable it again you will have to run auto it with

$ret = DllCall("User32", "int", "SystemParametersInfo", _

"int", $SPI_SETUIEFFECTS, _

"int", 0, _

"int", 1, _

"int", BitOR($SPIF_UPDATEINIFILE, $SPIF_SENDCHANGE) _

)

a perhaps easier approach is to disable service Themes. I'm not sure if I lose something I need, but it does not look like that.

http://www.msfn.org/board/topic/44662-turn-off-visual-effects-as-default-works/

Edited February 21, 2011 by thor918

[guinness]

I would suggest looking at _WinAPI_SystemParametersInfo() in the Help File, since it might have not been available when you started this thread 3yrs ago!

Plus to disable the theme have a look at this >>

Global $GUI = GUICreate("GUI")
Global $Button = GUICtrlCreateButton("Test", 10, 10, 80, 30)
_SetWindowTheme(-1)
GUISetState(@SW_SHOW)

While 1
    Switch GUIGetMsg()
        Case -3
            Exit
    EndSwitch
WEnd

Func _SetWindowTheme($hHandle = -1)
    Local $aReturn = DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($hHandle), "wstr", 0, "wstr", 0)
    If @error Then Return SetError(1, 1, 0)
    Return $aReturn[0]
EndFunc   ;==>_SetWindowTheme

Edited February 21, 2011 by guinness