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

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués


L'exemple suivant permet d'établir un fichier de trace contenant tous les identifiants (Handle) des fenêtres Windows actuellement ouvertes sur le poste en cours.

La procédure LanceTrace ouvre le fichier de trace et lance l'énumération des fenêtres grâce à la fonction EnumWindows de l'API User32.

La procédure EnumFenêtre est appelée par la fonction EnumWindows de l'API User32 pour chaque fenêtre trouvée. Cette procédure permet d'écrire l'identifiant de la fenêtre trouvée dans le fichier de trace.



PROCEDURE LanceTrace()
 // On ouvre le fichier
nFichier est un entier = fOuvre("C:\HandleFenêtre.txt", foCréation )
SI nFichier=-1 ALORS
Erreur("Problème fichier")
FinProgramme()
FIN
 // On lance l'énumération
AppelDLL32 ("User32", "EnumWindows" , & EnumFenêtre, nFichier)
// On ferme le fichier
fFerme(nFichier)

PROCEDURE EnumFenêtre(nHwnd est un entier, nFichier est un entier)
// On écrit dans le fichier
fEcritLigne(nFichier, nHwnd)
RENVOYER Vrai