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

lancer un exe ou un fichier jpg ou autre

	Description
Retour à la liste L'auteur eric leissler France Membre Actif (personne physique) # 0000002784 enregistré le 06/03/2010 http://www.aumeric.fr 56 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é 2838 fois Niveau initié Version(s) Foxpro : VFP 9.0 VFP 8.0 VFP 7.0 VFP 6.0 VFP 5.0
	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é ...

lancer un exe ou un fichier jpg ou autre

Contributions > 01 - PRG : Programmation