DECLARE INTEGER GetActiveWindow IN user32 
 
DECLARE INTEGER EnableWindow IN user32;
 INTEGER hwnd,;
 INTEGER fEnable
 
* get handle of main VFP window
hwnd = GetActiveWindow()
 
? EnableWindow (hwnd, 0)
? "*** Input blocked - the main VFP window only"
 
FOR ii=1 TO 10
    DO proc1
ENDFOR
 
? EnableWindow (hwnd, 1)
? "*** Input unblocked"
 
PROCEDURE  proc1
    LOCAL ii
    WAIT WINDOW NOWAIT "Creating cursor..."
    CREATE CURSOR cs (id N(6), dt D)
    FOR ii=1 TO 10000
        INSERT INTO cs VALUES (ii, date()-ii)
    ENDFOR
    WAIT CLEAR
    ? Chr(9) + "- cursor created at " + TTOC (datetime())
RETURN