Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to avoid black screen on run command
Message
De
26/02/2017 12:41:59
 
 
À
26/02/2017 05:50:04
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 9 SP2
Divers
Thread ID:
01648531
Message ID:
01648538
Vues:
53
>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)
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform