LanceAppli("WdmodFic.exe -nobacjup /WDD=MonAnalyse.wdd  /DIR=fNomCourt(ls_NomRepertoire), exeActif, exeBloquant)

lpBName est chaine asciiz de 128
lpBClass est chaine asciiz de 128

lpBName='Titre Fenetre' // Titre de la fenetre contenant le bouton
lpBClass='#32770' // Classe de la fenetre
NumFen est entier long=Appeldll32('USER32','FindWindowExA',Null,Null,&lpBClass,&lpBName)
si NumFen>0 alors
lpBName='Bouton' // Nom du bouton
lpBClass='Button' // Class Button
NumBtn est entier long=Appeldll32('USER32','FindWindowExA',NumFen,null,&lpBClass,&lpBName)
si NumBtn>0 alors
Post3 =postmessage(NumBtn,245,null,null) // BM_CLICK
fin
fin 

DEVMODEA est une structure
dmDeviceName est une chaîne fixe sur 32 //Type C : BYTE
dmSpecVersion est un entier sur 2 octets //Type C : WORD
dmDriverVersion est un entier sur 2 octets //Type C : WORD
dmSize est un entier sur 2 octets //Type C : WORD
dmDriverExtra est un entier sur 2 octets //Type C : WORD
dmFields est un entier //Type C : DWORD
dmOrientation est un entier sur 2 octets //Type C : short
dmPaperSize est un entier sur 2 octets //Type C : short
dmPaperLength est un entier sur 2 octets //Type C : short
dmPaperWidth est un entier sur 2 octets //Type C : short
dmScale est un entier sur 2 octets //Type C : short
dmCopies est un entier sur 2 octets //Type C : short
dmDefaultSource est un entier sur 2 octets //Type C : short
dmPrintQuality est un entier sur 2 octets //Type C : short
dmColor est un entier sur 2 octets //Type C : short
dmDuplex est un entier sur 2 octets //Type C : short
dmYResolution est un entier sur 2 octets //Type C : short
dmTTOption est un entier sur 2 octets //Type C : short
dmCollate est un entier sur 2 octets //Type C : short
dmFormName est une chaîne fixe sur 32 //Type C : BYTE
dmLogPixels est un entier sur 2 octets //Type C : WORD
dmBitsPerPel est un entier //Type C : DWORD
dmPelsWidth est un entier //Type C : DWORD
dmPelsHeight est un entier //Type C : DWORD
dmDisplayFlags est un entier //Type C : DWORD
dmDisplayFrequency est un entier //Type C : DWORD
dmICMMethod est un entier //Type C : DWORD
dmICMIntent est un entier //Type C : DWORD
dmMediaType est un entier //Type C : DWORD
dmDitherType est un entier //Type C : DWORD
dmICCManufacturer est un entier //Type C : DWORD
dmICCModel est un entier //Type C : DWORD
dmPanningWidth est un entier //Type C : DWORD
dmPanningHeight est un entier //Type C : DWORD
FIN

CONSTANTE DM_BITSPERPEL=262144
CONSTANTE DM_PELSWIDTH=524288
CONSTANTE DM_PELSHEIGHT=1048576
CONSTANTE DM_DISPLAYFREQUENCY=4194304

CONSTANTE CDS_TEST=2
CONSTANTE CDS_UPDATEREGISTRY=1
CONSTANTE CDS_TEMP=0

// code de la fenetre :
dm est une DEVMODEA
iModeNum est un entier
TANTQUE API('USER32','EnumDisplaySettingsA',Null,iModeNum,&dm)
TableAjouteLigne(TableResolutions,dm:dmDeviceName,dm:dmBitsPerPel,dm:dmPelsW
idth,dm:dmPelsHeight,dm:dmDisplayFrequency)
 iModeNum++
FIN

SI TableSelectOccurrence(TableResolutions)=0 ALORS RETOUR
dmtemp est une DEVMODEA
dmtemp:dmBitsPerPel=TableResolutions.dmBitsPerPel
dmtemp:dmPelsHeight=TableResolutions.dmPelsHeight
dmtemp:dmPelsWidth=TableResolutions.dmPelsWidth
dmtemp:dmDisplayFrequency=TableResolutions.dmDisplayFrequency
dmtemp:dmFields=OUBinaire(dmtemp:dmFields,DM_BITSPERPEL)
dmtemp:dmFields=OUBinaire(dmtemp:dmFields,DM_PELSWIDTH)
dmtemp:dmFields=OUBinaire(dmtemp:dmFields,DM_PELSHEIGHT)
dmtemp:dmFields=OUBinaire(dmtemp:dmFields,DM_DISPLAYFREQUENCY)
dmtemp:dmSize=Dimension(dmtemp)
SI API('user32','ChangeDisplaySettingsA',&dmtemp, CDS_TEST)<>0 ALORS
 Erreur(ErreurInfo())
FIN

// Idem que le bouton 1 mais mettre le flag à 0 //

SI TableSelectOccurrence(TableResolutions)=0 ALORS RETOUR
dmtemp est une DEVMODEA
dmtemp:dmBitsPerPel=TableResolutions.dmBitsPerPel
dmtemp:dmPelsHeight=TableResolutions.dmPelsHeight
dmtemp:dmPelsWidth=TableResolutions.dmPelsWidth
dmtemp:dmDisplayFrequency=TableResolutions.dmDisplayFrequency
dmtemp:dmFields=OUBinaire(dmtemp:dmFields,DM_BITSPERPEL)
dmtemp:dmFields=OUBinaire(dmtemp:dmFields,DM_PELSWIDTH)
dmtemp:dmFields=OUBinaire(dmtemp:dmFields,DM_PELSHEIGHT)
dmtemp:dmFields=OUBinaire(dmtemp:dmFields,DM_DISPLAYFREQUENCY)
dmtemp:dmSize=Dimension(dmtemp)
SI API('user32','ChangeDisplaySettingsA',&dmtemp, CDS_TEMP)<>0 ALORS
 Erreur(ErreurInfo())
FIN

// Idem que le bouton 1 mais mettre le flag à 1 //

SI TableSelectOccurrence(TableResolutions)=0 ALORS RETOUR
dmtemp est une DEVMODEA
dmtemp:dmBitsPerPel=TableResolutions.dmBitsPerPel
dmtemp:dmPelsHeight=TableResolutions.dmPelsHeight
dmtemp:dmPelsWidth=TableResolutions.dmPelsWidth
dmtemp:dmDisplayFrequency=TableResolutions.dmDisplayFrequency
dmtemp:dmFields=OUBinaire(dmtemp:dmFields,DM_BITSPERPEL)
dmtemp:dmFields=OUBinaire(dmtemp:dmFields,DM_PELSWIDTH)
dmtemp:dmFields=OUBinaire(dmtemp:dmFields,DM_PELSHEIGHT)
dmtemp:dmFields=OUBinaire(dmtemp:dmFields,DM_DISPLAYFREQUENCY)
dmtemp:dmSize=Dimension(dmtemp)
SI API('user32','ChangeDisplaySettingsA',&dmtemp, CDS_UPDATEREGISTRY)<>0
ALORS
 Erreur(ErreurInfo())
FIN

Voici un bout de code trouver il y a longtemps sur internet
Procédure ProcesNT()
// Liste des process et modules sous NT
// Ce module pour fonctionner correctement doit être lancer dans une
//  fenêtre disposant d'une table 'TABLE1' composer de 5 colonnes
//  id           numérique entier (index dans la liste)
//  cProcessID   texte
//  cProcessName texte
//  cModuleName  texte
//  cPathName    texte
// Un interrupteur 'INTMODULE' permet de n'afficher
//  que les process (INTMODULE=0)
//  ou les process et modules correspondants (INTMODULE=1)

//
LOCAL
 idTabProcess  est un tableau de 200 entiers longs
 Cb     est un entier long=800  // taille en octets du tableau idTabProcess
 CbNeeded   est un entier long
 NumElements  est un entier long

 hTabModule  est un tableau de 200 entiers longs
 Cb2    est un entier long=800  // taille en octets du tableau hTabModule
 CbNeeded2   est un entier long
 NumModules   est un entier long
 Pname   est une chaine

 FileName   est une chaine fixe sur 260
 BaseName  est une chaine fixe sur 260
 nSize    est un entier long=260  // taille de FileName et BaseName

 lret,l1,l2  est un entier long
 hProcess   est un entier long
 i,i2    est un entier long
    NumDll    est un entier long


NumDll=chargedll('PSAPI.DLL')
si NumDll=0 alors
 erreur('La dll PSAPI n'a pas été chargée')
 renvoyer faux
fin

//
// The EnumProcesses function retrieves the process identifier
//  for each process object in the system.
//
//  BOOL EnumProcesses(
//    DWORD * lpidProcess,  // array to receive the process identifiers
//    DWORD cb,             // size of the array
//    DWORD * cbNeeded      // receives the number of bytes returned
//  );
Lret=appeldll32('PSAPI.DLL','EnumProcesses',&idTabProcess,Cb,&CbNeeded)
NumElements=CbNeeded/4   // Taille renvoyée divisée par la taille d'un
entier long (4 octets)

Pour i=1 a NumElements
    //
 // The OpenProcess function returns a handle to an existing process object.
 //
 //  HANDLE OpenProcess(
 //    DWORD dwDesiredAccess,  // access flag
 //    BOOL bInheritHandle,    // handle inheritance flag
 //    DWORD dwProcessId       // process identifier
 //  );
 //

HProcess=appeldll32('KERNEL32.DLL','OpenProcess',oubinaire(1024,16),0,idTabP
rocess[i])
 si HProcess<>0 alors  // On a un processus. On va rechercher ses modules.
        //
  // The EnumProcessModules function retrieves a handle for each module
  //  in the specified process.
  //
  // BOOL EnumProcessModules(
  //   HANDLE hProcess,      // handle to the process
  //   HMODULE * lphModule,  // array to receive the module handles
  //   DWORD cb,             // size of the array
  //   LPDWORD lpcbNeeded    // receives the number of bytes returned
  // );
  // Process_Query_Information=1024
  // Process_All_Access=16
  //

Lret=Appeldll32('PSAPI.DLL','EnumProcessModules',Hprocess,&hTabModule,Cb2,&C
bNeeded2)
  si LRet<>0 alors
   NumModules=CbNeeded2/4
   SI INTMODULE=0 alors NumModules=1
   Pour i2=1 a NumModules
    // The GetModuleBaseName function retrieves the base name of the
specified module.
    //
    //DWORD GetModuleBaseName(
    //  HANDLE hProcess,    // handle to the process
    //  HMODULE hModule,    // handle to the module
    //  LPTSTR lpBaseName,  // buffer that receives the base name
    //  DWORD nSize         // size of the buffer
    //);
     L1=Appeldll32('PSAPI.DLL','GetModuleBaseNameA',HProcess,hTabModule[i2]
....
                  ,&BaseName,nSize)
     SI L1=0 alors BaseName=''
    Si i2=1 alors Pname=minuscule(BaseName[[1 à L1]])
    //
    // The GetModuleFileNameEx function retrieves the fully qualified path
    //  for the specified module.
    //
    //  DWORD GetModuleFileNameEx(
    //    HANDLE hProcess,    // handle to the process
    //    HMODULE hModule,    // handle to the module
    //    LPTSTR lpFilename,  // buffer that receives the path
    //    DWORD nSize         // size of the buffer
    //  );
    //

L2=Appeldll32('PSAPI.DLL','GetModuleFileNameExA',HProcess,hTabModule[i2] ...
                  ,&FileName,nSize)
    Si L2=0 alors FileName=''
    TABLEAJOUTE('TABLE1',i+i2/1000+TAB+idTabProcess[i]+TAB+PName+...
              TAB+Minuscule(BaseName[[1 à L1]])+...
              tab+Minuscule(FileName[[1 a L2]]))
   fin
  fin
  LRet=Appeldll32('KERNEL32.DLL','CloseHandle',HProcess)
 FIN
fin

si NumDll<>0 alors
 dechargedll(NumDll)
fin

LA_CONFIR est un entier sur 8 octets=0x00000000
AppelDLL32( "shell32.dll" , "SHEmptyRecycleBinA" , Handle() , Null ,&LA_CONFIR)

//partage d'un repertoire
STYPE_DISKTREE est un entier = 0

//permissions
ACCESS_READ     est un entier = 0x1
ACCESS_WRITE    est un entier = 0x2
ACCESS_CREATE   est un entier = 0x4
ACCESS_EXEC     est un entier = 0x8
ACCESS_DELETE   est un entier = 0x10
ACCESS_ATRIB    est un entier = 0x20
ACCESS_PERM     est un entier = 0x40

SHARE_INFO_2 est une structure
shi2_netname est un entier
shi2_type est un entier
shi2_remark est un entier
shi2_permissions est un entier
shi2_max_uses est un entier
shi2_current_uses est un entier
shi2_path est un entier
shi2_passwd est un entier
FIN
si2 est un SHARE_INFO_2

Nom_Partage est une chaîne UNICODE = AnsiVersUnicode("test")   //nom du partage
Description_Partage  est une chaîne UNICODE = AnsiVersUnicode("description de mon partage") //Description du partage
Chemin_Partage  est une chaîne UNICODE = AnsiVersUnicode("c:test") //Chemin du partage
Password_Partage est une chaîne="pitleda" // Mot de passe du partage
ServeurName_Partage  est une chaîne UNICODE = AnsiVersUnicode("\monpc") //Nom du serveur

success  est un entier
si2:shi2_netname=&Nom_Partage // nom du partage
si2:shi2_type=STYPE_DISKTREE  //Partager koi ? ici un repertoire
si2:shi2_remark=&Description_Partage //&Description_Partage // commentaire
si2:shi2_permissions=ACCESS_READ  //acces en lecture
si2:shi2_max_uses=-1 //illimlité
//si2:shi2_current_uses=
si2:shi2_path=&Chemin_Partage
si2:shi2_passwd=&Password_Partage

success=API("netapi32.dll","NetShareAdd",&ServeurName_Partage,2,&si2,Null)

MessageErreur est une chaîne
SELON success
	CASE 0 
		MessageErreur="Partage Effectué"
	CASE 5
		MessageErreur="ERREUR: Vous n'avez pas acces à la fonction demandé." 
	CASE 50
		MessageErreur="ERREUR: Le partage n'est pas supporté."
	CASE 53
		MessageErreur="ERREUR: Le chemin du partage n'est pas correct."
	CASE 87
		MessageErreur="ERREUR: Un Paramètre est invalide."
	CASE 123 
		MessageErreur="ERREUR: Le nom n'est pas valide."
	AUTRE CAS
		MessageErreur="ERREUR inconue"
FIN

[global]
	locking = yes
	strict locking = yes
	share modes = yes
	oplocks = no
	kernel oplocks = no
	blocking locks = no
	fake oplocks = no
	level2 oplocks = no

cSep est une chaine
cSep=TAB+caract(127)+RC
// intégration d'un fichier avec TAB en séparateur de colonnes et RC pour saut de lignes
//Ensuite utiliser l'option hImpSansDélimiteur :
hImporteTexte(fichier,rubriques,cSep,hImpSansDélimiteur)

cFichier est une chaine // contenu hexa du fichier
// Ouverture du fichier
nIdfic est un entier = fOuvre(MonFichier, foLecture)
SI nIdfic=-1 ALORS
    Erreur('L'ouverture du fichier a échoué')
SINON
    // récupère le nombre d'octets à lire 
    nbcar est un entier = fPositionne(nIdfic,0,fpFin)
    ncar est un entier
    fPositionne(nIdfic,0,fpDébut)
    sCar est un entier sans signe sur 1 octet
    fLit(nIdfic,1,&sCar)    // nouvelle syntaxe : par adresse
    TANTQUE ncar<nbcar
        ncar++
        // taitement de l'octet
        // conversion de l'entier en valeur hexa
        cfichier+=NumériqueVersChaine(sCar,'02X')
        // octet suivant                        
        fLit(nIdfic,1,&sCar)
    FIN
    // Fermeture du fichier
    fFerme(nIdfic)
FIN

nA,nB sont des entiers sans signe sur 1 octet
nA=64
nB=255
Info(Octet2Bin(nA),Octet2Bin(nB))

PROCEDURE Octet2Bin(sCar est un entier sans signe sur 1 octet)
// conversion de l'octet en hexa
sHexa est une chaîne fixe sur 2 = NumériqueVersChaine(sCar,'02X')
// conversion de l'octet (hexa) en binaire
sres est une chaîne fixe sur 8
i est un entier
BOUCLE
        i++
        SELON sHexa[[i]]
                CAS 0:
                        sres[[(4*(i-1))+1 A (4*i)]]='0000'
                CAS        1:
                        sres[[(4*(i-1))+1 A (4*i)]]='0001'
                CAS 2:
                        sres[[(4*(i-1))+1 A (4*i)]]='0010'
                CAS 3:
                        sres[[(4*(i-1))+1 A (4*i)]]='0011'
                CAS 4:
                        sres[[(4*(i-1))+1 A (4*i)]]='0100'
                CAS        5:
                        sres[[(4*(i-1))+1 A (4*i)]]='0101'
                CAS        6:
                        sres[[(4*(i-1))+1 A (4*i)]]='0110'
                CAS        7:
                        sres[[(4*(i-1))+1 A (4*i)]]='0111'
                CAS        8:
                        sres[[(4*(i-1))+1 A (4*i)]]='1000'
                CAS        9:
                        sres[[(4*(i-1))+1 A (4*i)]]='1001'
                CAS 'A':
                        sres[[(4*(i-1))+1 A (4*i)]]='1010'
                CAS 'B':
                        sres[[(4*(i-1))+1 A (4*i)]]='1011'
                CAS 'C':
                        sres[[(4*(i-1))+1 A (4*i)]]='1100'
                CAS 'D':
                        sres[[(4*(i-1))+1 A (4*i)]]='1101'
                CAS 'E':
                        sres[[(4*(i-1))+1 A (4*i)]]='1110'
                CAS 'F':
                        sres[[(4*(i-1))+1 A (4*i)]]='1111'
        FIN
        SI i=2 ALORS SORTIR
FIN
RENVOYER sres

NomFic est une chaine = 'D:TestRTF.HTM'
monIe est un objet ole dynamique
si monie = null alors monie = allouer un objet OLE 'InternetExplorer.application'
si monie <> NULL ALORS 
monie>>visible=olefaux
// on charge le document Word
monie>>navigate(nomfic)//,olefaux,olevrai)
tantque monIe>>busy
// attente de la fin du chargement de la page
FIN
monIe>>ExecWB(6,2)
FIN

liberer MonIe

monIe>>ExecWB(6,2,0,0)

// code dans FEN2
// syntaxe 1 : accès direct en utilisant le 'chemin' du champ
MaVal = fen1.table.colonne[indice]
// syntaxe 2 : on construit le nom du champ (son 'chemin') à partir d'une chaine, les signes {} activnt l'indirection
MaVal = {'fen1.table.colonne['+indice+']',indChamp}