Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Check to see if a program is running.
Message
De
07/05/1997 17:31:14
 
 
À
07/05/1997 17:29:34
Information générale
Forum:
Visual FoxPro
Catégorie:
Fonctions Windows API
Divers
Thread ID:
00031210
Message ID:
00031221
Vues:
50
>Great, Found the FindWindow API, which dll is it in?

Check this one:

FUNCTION CheckWin
* Routine which sees if an application is active by looking for its
* Window title
* expC1 Window title
PARAMETER tcTitle
returnv=.F.
mGetWinTxt=RegFn("GetWindowText","I@CI","I")
mGetWindow=RegFn("GetWindow","II","I")
mIsWinVis=RegFn("IsWindowVisible","I","I")
foxhwnd=MAINHWND()
hwndNext=CallFn(mGetWindow,foxhwnd,0)
DO WHILE hwndNext<>0
Stuffer=SPACE(64)
x=CallFn(mGetWinTxt,hwndnext,@Stuffer,64)
IF UPPER(tcTitle)$UPPER(stuffer)
returnv=.T.
ENDIF
hwndNext=CallFn(mGetWindow,hwndnext,2)
ENDDO
RETURN returnv
Michel Fournier
Level Extreme Inc.
Designer, architect, owner of the Level Extreme Platform
Subscribe to the site at https://www.levelextreme.com/Home/DataEntry?Activator=55&NoStore=303
Subscription benefits https://www.levelextreme.com/Home/ViewPage?Activator=7&ID=52
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform