>Thisform.ReallyLockScreen( .T. )
>
>>*********************************************************************** >* Program....: REALLYLOCKSCREEN >* Purpose....: Use the Windows API to force a true screen lock. >* ...........: Calling this lock function with a handle of 0 unlocks all locked windows >*********************************************************************** >LPARAMETERS tlLock >LOCAL ARRAY laJunk[1] >LOCAL lnHWnd, lnRes >********************************************************** >*** Check that the library has been set up and open it if not already done. >********************************************************** >lnRes = ADLLS( laJunk ) >IF lnRes = 0 OR NOT ( ASCAN( laJunk, 'LockWindowUpdate', 1, -1, 1, 15 ) > 0) > *** We don't have the function available > DECLARE INTEGER LockWindowUpdate IN Win32API INTEGER nHandle >ENDIF >*** Now set the Handle to lock according to the parameter >lnHWnd = IIF( tlLock, ThisForm.HWnd, 0 ) >*** And call the function >LockWindowUpdate( lnHWnd ) > >RETURN >Now this is a cool and useful function.