>CLEAR > >DECLARE INTEGER SystemParametersInfo IN USER32.DLL ; > INTEGER uAction , ; > INTEGER uParam , ; > INTEGER @lpvParam , ; > INTEGER fuWinIni > >#DEFINE SPI_GETDRAGFULLWINDOWS 38 >#DEFINE SPI_SETDRAGFULLWINDOWS 37 >#DEFINE SPIF_SENDWININICHANGE 2 > >NRESULT = 0 > >IF SYSTEMPARAMETERSINFO( SPI_GETDRAGFULLWINDOWS , 0 , NRESULT , 0 ) <> 0 > > ? "Call succeeded. NRESULT = " , NRESULT > > ? "Full Windows Drag is " + IIF( NRESULT = 0 , "OFF" , "ON" ) > >ELSE > > ? "Call failed." > >ENDIF > >>.
>CLEAR > >DECLARE INTEGER SystemParametersInfo IN USER32.DLL ; > INTEGER uAction , ; > INTEGER uParam , ; > INTEGER @lpvParam , ; > INTEGER fuWinIni > >#DEFINE SPI_GETDRAGFULLWINDOWS 38 >#DEFINE SPI_SETDRAGFULLWINDOWS 37 >#DEFINE SPIF_SENDWININICHANGE 2 > >IF .T. > > * TURN FULL WINDOW DRAG OFF > > ? "Call to turn drag OFF returned = " , SYSTEMPARAMETERSINFO( SPI_SETDRAGFULLWINDOWS , 0 , 0 , SPIF_SENDWININICHANGE ) > >ELSE > > * TURN FULL WINDOW DRAG ON > > ? "Call to turn drag ON returned = " , SYSTEMPARAMETERSINFO( SPI_SETDRAGFULLWINDOWS , 1 , 0 , SPIF_SENDWININICHANGE ) > >ENDIF > >