Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to avoid black screen on run command
Message
From
26/02/2017 12:41:59
 
 
To
26/02/2017 05:50:04
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 9 SP2
Miscellaneous
Thread ID:
01648531
Message ID:
01648538
Views:
54
>VFP 9 application runs application and wait for finish using command
>
>
>RUN openssl.exe  ... parameters
>
>
>multiple times.
>This causes ugly blank screen flashing.
>
>How to remove blank screen flash ? how to run application miniized ?
>Which is exact replacement of RUN command for this ?
*SHELLEX.prg

LPARAMETER lcLink, lcAction, lcParms
*
lcAction = IIF(EMPTY(lcAction), "Open", lcAction)
lcParms = IIF(EMPTY(lcParms), "", lcParms)
*
DECLARE INTEGER ShellExecute ;
    IN SHELL32.dll ;
    INTEGER nWinHandle, ;
    STRING cOperation, ;
    STRING cFileName, ;
    STRING cParameters, ;
    STRING cDirectory, ;
    INTEGER nShowWindow
*
DECLARE INTEGER FindWindow ;
   IN WIN32API ;
   STRING cNull,STRING cWinName
*
RETURN ShellExecute(FindWindow(0, _SCREEN.caption), ;
                    lcAction, lcLink, ;
                    lcParms, SYS(2023), 1)
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform