Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Hide mouse busy cursor
Message
From
27/05/2005 15:44:39
 
 
To
27/05/2005 14:43:49
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Environment versions
Visual FoxPro:
VFP 9
Miscellaneous
Thread ID:
01017990
Message ID:
01018266
Views:
27
>Hi Malcolm.
>
>No luck here as well. I'm going to try Chad Bourque's suggestion of using the Windows version of LockScreen and see if that makes a difference.
>
>Here is some code you can use - put it in a form method called ReallyLockScreen and call it like this:
>
>
>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.
Greg Reichert
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform