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

lancer un exe ou un fichier jpg ou autre   



L'auteur

eric leissler
France France
Membre Simple
# 0000002784
enregistré le 06/03/2010
http://www.aumeric.fr
63 ans
LEISSLER Eric
85290 MORTAGNE SUR SEVRE
de la société AUMERIC LOGICIELS
Fiche personnelle


Note des membres
pas de note

Contributions > 01 - PRG : Programmation

lancer un exe ou un fichier jpg ou autre
# 0000000127
ajouté le 24/12/2004 07:54:26 et modifié le 29/03/2006
consulté 6444 fois
Niveau initié

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

Description

Bonjour à toutes et à tous

Cette fonction permet de lancer un fichier jpg, par exemple, et l'appli associée à cette extention s'ouvrira automatiquement

ex : execut("aumeric.jpg")  me lancera automatiquement , photmagic avec ce fichier.

Sur un autre poste, il lancera microsoft paint,  en fonction de l'association.

si on fait  execut("test.xls"), il lancera automatiquement excel

Joyeux Noël à tous et BONNE ANNEE 2005

Atoutfoxement votre

Eric

Code source :
function execut()

**  Retourne  2  - mauvaise association,
**            31 - aucune association sur l'extention
**            29 - Echec de du chargement de l'appli
**            30 - Application  occupée

LPARAMETERS tcnomfich,tctravrep,tcOperation
LOCAL lcnomfich,lctravrep,lcOperation

IF EMPTY(tcnomfich)
  RETURN -1
ENDIF
lcnomfich=ALLTRIM(tcnomfich)
lctravrep=IIF(TYPE("tctravrep")="C",ALLTRIM(tctravrep),"")
lcOperation=IIF(TYPE("tcOperation")="C" AND NOT EMPTY(tcOperation),ALLTRIM(tcOperation),"Open")


DECLARE INTEGER ShellExecute ;
      IN SHELL32.DLL ;
      INTEGER nWinHandle,;
      STRING cOperation,;
      STRING cnomfich,;
      STRING cParameters,;
      STRING crepertoire,;
      INTEGER nShowWindow
RETURN ShellExecute(0,lcOperation,lcnomfich,"",lctravrep,1)
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