L'auteur
eric leissler France Membre Simple # 0000002784 enregistré le 06/03/2010http://www.aumeric.fr 68 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é 9843 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é ...