Ce code m’a été fourni par le Support Technique PC SOFT. Sur une installation, la mémoire disponible était juste suffisante et le chargement des DLL au lancement permette d’assurer leur chargement tant que la mémoire dispo est « libre ».  Ce code est en version 9

 

 

PROCEDURE ForceChargementFramework(bAfficheErreur=Faux)

 

LOCAL

       i est un entier

       hInst  est un entier

       sRepFrameWorkPPC  est une chaîne

       sRepFrameWorkPPC  = RegistreLit("HKEY_LOCAL_MACHINE\SOFTWARE\PC SOFT\WinDev Mobile\9.0","CHEMIN")

       sListeDLL  est une chaîne = "wp90vm.dll,wp90std.dll,wp90obj.dll,wp90mat.dll,wp90hf.dll,wp90sql.dll,"+...                                                     "wp90com.dll,wp90img.dll,wp90ce.dll,wpSync90.dll,wp90etat.dll,"+...

                                        "wp90prn.dll,wp90pcl.dll"

        sDLLNonChargées  est une chaîne

        sUneDLL  est une chaîne

 

SI EnModeTest() ALORS RENVOYER ""

i=1

BOUCLE

       sUneDLL=ExtraitChaîne(sListeDLL,i,",")

       SI sUneDLL=EOT ALORS SORTIR

       hInst=ChargeDLL(sRepFrameWorkPPC+"\"+sUneDLL)

       SI hInst = 0 ALORS sDLLNonChargées+=","+sUneDLL              

       i++

FIN

SI sDLLNonChargées<>"" ET bAfficheErreur ALORS

Info("Liste des DLLs non chargées : "+sDLLNonChargées[[2 A]])

FIN

 

RENVOYER sDLLNonChargées