ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Enregistrer une dll en foxpro par Windows Scripting en mode caché.   



L'auteur

Olivier Hamou
France France
Membre Simple
# 0000000017
enregistré le 13/10/2004
http://www.planitron.com
Hamou Olivier
94100 Saint Maur des fossés
de la société PLANITRON
Fiche personnelle


Note des membres
pas de note

Contributions > 05 - API et appels systèmes

Enregistrer une dll en foxpro par Windows Scripting en mode caché.
# 0000000425
ajouté le 12/03/2007 17:13:51 et modifié le 12/03/2007
consulté 5344 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0

Description
Fonction permettant d'enregistrer une dll en foxpro,
même si le chemin présente des blancs dans le path.


voir aussi l'article de mike gagnon qui passe par la dll de ShellExcute :
http://www.atoutfox.org/articles.asp?ACTION=FCONSULTER&ID=0000000313

Olivier
Code source :
If RegSvr("C:\Program Files\VideoLAN\VLC\activex\axvlc.dll")
  messagebox("Votre dll a été enregistré avec Succès !")
EndIF


Procedure REGSVR
  Lparameters lcFile
  Local VAL_RETOUR as Boolean
  m.VAL_RETOUR = .F.
  && Constante pour le choix de la fenetre
  #define SW_SHOW_HIDE 0
  #define SW_SHOW_NORMAL 1
  #define SW_SHOW_MINIMIZED 2
  #define SW_SHOW_MAXIMIZED 3

  oShell = createobject("WScript.Shell")
  * Paramètres
  * 1- m.cCheminDeMonAppli && le Chemin de votre appli
  * 2- Le mode de fenetrage
  * 3- Boolean pour .T. on attend le thread , .F. on attend pas le thread le code passe à la suite.
  * Renvoi 0 si c'est Ok
  ExecOk = oShell.Run('REGSVR32.exe /s "'+m.lcFile+'"', 0,.T.)
  m.VAL_RETOUR = Iif(m.ExecOk=0,.T.,m.VAL_RETOUR)

  *Messagebox(ExecOk)
  oShell = Null
  Return m.VAL_RETOUR
EndProc

Commentaires
Aucun commentaire enregistré ...

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3