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

Envoi un E-MAIL ou charger un site à partir d'une application fox pro   



L'auteur

lotfi072003
Algérie Algérie
Membre Simple
# 0000000489
enregistré le 20/07/2005

http://www.oasis-gestion.com
abdelatif belguidoum
Fiche personnelle


Note des membres
pas de note

Contributions > 05 - API et appels systèmes

Envoi un E-MAIL ou charger un site à partir d'une application fox pro
# 0000000362
ajouté le 04/11/2006 20:40:24 et modifié le 04/11/2006
consulté 5298 fois
Niveau débutant

Version(s) Foxpro :
VFP 5.0
VFP 3.0

Description

Envoi  un E-MAIL ou charger un site à partir d'une application Fox pro

Code source :
* Créer une nouvelle forme1
* Ajouter  dans la forme1 label1
* placer "http://www.atoutfox.com/" dans la caption du premier label
* et la procedure suivante dans l'événement click du label1


LOCAL lcFileName,lcWorkDir,lcOperation

tcFileName="http://www.microsoft.com/"

IF EMPTY(tcFileName)
  RETURN -1
ENDIF
lcFileName=ALLTRIM(tcFileName)
lcWorkDir=IIF(TYPE("tcWorkDir")="C",ALLTRIM(tcWorkDir),"")
lcOperation=IIF(TYPE("tcOperation")="C" AND NOT EMPTY(tcOperation),ALLTRIM(tcOperation),"Open")

DECLARE INTEGER ShellExecute ;
      IN SHELL32.DLL ;
      INTEGER nWinHandle,;
      STRING cOperation,;
      STRING cFileName,;
      STRING cParameters,;
      STRING cDirectory,;
      INTEGER nShowWindow
RETURN ShellExecute(0,lcOperation,lcFilename,"",lcWorkDir,1)
***********************************************************************************************
* Ajouter  dans la forme1  label2
* placer placer "http://www.microsoft.com/" dans la caption du premier label
* et la procedure suivante dans l'événement click du label2

LOCAL LCFILENAME,LCWORKDIR,LCOPERATION

TCFILENAME=" MAILTO:LOTFI072003@Yahoo.fr "+ ;
"?SUBJECT= QUESTION à PROPOS SHELLEXECUTE"

IF EMPTY(TCFILENAME)
  RETURN -1
ENDIF
LCFILENAME=ALLTRIM(TCFILENAME)
LCWORKDIR=IIF(TYPE("tcWorkDir")="C",ALLTRIM(TCWORKDIR),"")
LCOPERATION=IIF(TYPE("tcOperation")="C" AND NOT EMPTY(TCOPERATION),ALLTRIM(TCOPERATION),"Open")

DECLARE INTEGER ShellExecute ;
IN SHELL32.DLL ;
INTEGER nWinHandle,;
STRING cOperation,;
STRING cFileName,;
STRING cParameters,;
STRING cDirectory,;
INTEGER nShowWindow
RETURN SHELLEXECUTE(0,LCOPERATION,LCFILENAME,"bonjour",LCWORKDIR,1)
Commentaires
le 08/11/2006, Mike Gagnon a écrit :

http://www.atoutfox.com/articles.asp?ACTION=FCONSULTER&ID=0000000139

le 08/11/2006, eddymaue a écrit :
TcOperation = ?
le 08/11/2006, lotfi072003 a écrit :
merci ;-) mike je sais que je ss pas le premier qui a utiliser le shellexcute
eddymaue vs avez raison "tcoperation" n'apas de role ici
j'ai copier ce morceau de mon logicielle il a une autre travail a faire


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