I got it to work in VB.
This is just running it on a form with
2 command buttons. I'm going to set
up a tray icon to toggle it.
Thanks again for your help!
PHP Code:
Option Explicit
'Add 2 command Buttons...
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SETSNAPTODEFBUTTON = &H60
Private Const GETSNAPTODEFBUTTON = &H5F
Private Const SENDWININICHANGE = &H2
Private Function isSnapToDefault() As Boolean
Dim ilpvParam&
Call SystemParametersInfo(GETSNAPTODEFBUTTON, 0, ilpvParam&, 0)
isSnapToDefault = ilpvParam&
End Function
Private Function SetSnapToDefault(ByVal SnapToDefault As Boolean)
Call SystemParametersInfo(SETSNAPTODEFBUTTON, SnapToDefault, 0, SENDWININICHANGE)
End Function
Private Sub Command1_Click()
MsgBox "Snap is: " & isSnapToDefault
End Sub
Private Sub Command2_Click()
SetSnapToDefault (Not isSnapToDefault)
End Sub
'Rekd