pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

Des exemples d'utilisation des fonctions du WLangage

Rien de tel qu'un exemple pour comprendre une fonction de WLangage. Dans cette section, vous trouverez des exemples simples.

Des exemples évolués, où la fonction est utilisée en contexte, sont également disponible sur ce site.

Aller à la page des exemples évolués

ExeInfo (en anglais ExeInfo)

VersionProg est une chaîne
VersionProg = ExeInfo ( exeVersion , "Appli.exe")
SI VersionProg <> "2.0A" ALORS
    Erreur("La version du programme installé n'est pas la bonne")
FIN


Début de la page

ExeInfo (en anglais ExeInfo)

// Récupérer le nom de l'application (sans le chemin complet)
NomProg = ExeInfo ("OriginalFilename", "Appli.exe")
// L'exécutable n'a pas été renommé
NomProg = fExtraitChemin( ExeInfo ( exeNom ), fFichier + fExtension )


Début de la page

ExeInfo (en anglais ExeInfo)

sRepExe est une chaîne
SI EnModeTest() ALORS
   // En mode test on renvoie le répertoire d'exécution
  
sRepExe = fRepEnCours()
SINON
   sRepExe = ExeInfo ( exeRépertoire )
FIN


Début de la page

ExeLance (en anglais ExeRunning)

NbLance est un entier = ExeLancé ("C:\WINDEV\PROGRAMMES\WINDEV.EXE")
SI NbLance > 0 ALORS
   Info("Vous utilisez WinDev !")
FIN


Début de la page

ExeLance (en anglais ExeRunning)

NbLance est un entier = ExeLancé ("Calc.EXE")
SI NbLance > 0 ALORS
   Info("Vous utilisez la calculatrice !")
FIN


Début de la page

ExeListeDLL (en anglais ExeListDLL)

-- Code d'initialisation du champ "ListeAppli"
// Ajout des applications en cours d'exécution dans le champ "ListeAppli"
ListeAjoute(ListeAppli, ExeListeProcessus( exePID , exeNomCourt ))

-- Code de sélection d'une ligne de "ListeAppli"
// Extraction de l'identifiant de l'application sélectionnée dans la liste
InfoAppli est une chaîne = ListeAppli[ListeAppli]
IdAppli est une chaîne = ExtraitChaîne(InfoAppli, 1)
// Affichage des DLL utilisées dans le champ "ListeDLL"
ListeAjoute(ListeDLL, ExeListeDLL (IdAppli))


Début de la page

ExeListeProcessus (en anglais ExeListProcess)

// Ajout des applications en cours d'exécution dans le champ "ListeAppli"
ListeAjoute(ListeAppli, ExeListeProcessus ( exePID , exeNomCourt ))


Début de la page

ExePriorite (en anglais ExePriority)

// Sélection de l'application à manipuler
nIndice est un entier = TableSelect ( Table1 )
SI nIndice <> - 1 ALORS
   // Priorité de l'application sélectionnée ?
  
i est un entier = ExePriorité ( Table1 . PID [ nIndice ])
  
SELON i
     
CAS exePrioritéBasse
        
Info ( "Priorité basse" )
      CAS exePrioritéHaute
        
Info ( "Priorité haute" )
      CAS exePrioritéInferieureNormale
        
Info ( "Priorité inférieure à la normale" )
      CAS exePrioritéNormale
        
Info ( "Priorité normale" )
      CAS exePrioritéSuperieureNormale
        
Info ( "Priorité supérieure à la normale" )
      CAS exePrioritéTempsRéel
        
Info ( "Priorité temps réel" )
   CAS
CAS


Début de la page

ExeTermine (en anglais ExeTerminate)

bRes est un booléen
bRes = ExeTermine ("C:\Draw\psp\psp.exe")


Début de la page

ExeTermine (en anglais ExeTerminate)

bRes est un booléen
bRes = ExeTermine ("psp.exe")


Début de la page

LanceAppli (en anglais ExeRun)

// Lancement du bloc-notes avec le mode par défaut
LanceAppli ("NOTEPAD.EXE Lisezmoi.txt")


Début de la page

LanceAppliAssociee (en anglais ShellExecute)

// Ouvre le document "Fonctions.doc" dans Word
LanceAppliAssociée ("C:\WDNEWS\Version\Fonctions.doc")
// Imprime le document
LanceAppliAssociée ("C:\WDNEWS\Version\Fonctions.doc", "print")


Début de la page

LanceAppliAssociee (en anglais ShellExecute)

// Ouvre le document "Fonctions.psw" dans Word
LanceAppliAssociée ("\WDNEWS\Version\Fonctions.psw")


Début de la page

LanceAppliAssociee (en anglais ShellExecute)

// Ouverture d'un site dans le navigateur par défaut
LanceAppliAssociée ("http://www.pcsoft.fr")


Début de la page

LanceAppliAssociee (en anglais ShellExecute)

// Lancement de la messagerie configurée par défaut
LanceAppliAssociée ("mailto:pcsoft@pcsoft.fr")
// Lancement de la messagerie avec paramètres
// Paramètres reconnus par outlook
LanceAppliAssociée ("mailto:pcsoft@pcsoft.fr" + ...
        "?subject=Sujet : LST &body=Texte : le sommaire de la LST")


Début de la page

LanceAppliAssociee (en anglais ShellExecute)

// Ouvre le document "Facture.doc" à partir de son raccourci
LanceAppliAssociée ("""C:\Documents and Settings\Julie\Bureau\Raccourci vers Fonctions.doc.lnk""")


Début de la page