Comment utiliser un DLL foxpro (ou autre) sans a= voir besoin de l’enregistrer avec l’utilisation d’un fichier manifest.

À noter que l’article = suppose que vous possédez VFP9 (SP2). Avec l’introduction du SP2 lorsq= ue l’un compile un exécutable avec Foxpro le fichier manifest que= se crée automatiquement à l’intérieur de l’exécutable contient un nouvelle notion pour accommoder Windo= ws XP, Vista et Windows 7. Les permissions requises pour démarrer l’exécutable. Tous les exécutable ‘modernes’ contiennent un manifest, même Foxpro lui-même. Vous pouvez en f= aire l’essai en ouvrant Notepad et aller chercher votre fichier vfp9.exe d= ans Notepad et en faisant CTRL+F et chercher pour ‘manifest’ vous a= ller trouver quelque chose qui ressemble à ceci :

<a= ssembly xmlns=3D"urn:schemas-microsoft-com:asm.v1" manifestVersion=3D"1.0">

<a= ssemblyIdentity

version=3D"1.0.0.0"

type=3D"win32"

name=3D"Microsoft.VisualFoxPro" =

processorAr= chitecture=3D"x86"

/>=

<d= escription>Visual FoxPro</description>

<d= ependency>

<dependentAssembly&= gt;

<assemblyIdentity

= type=3D"win= 32"

= name=3D"Mic= rosoft.Windows.Common-Controls"

= version=3D"6.0= .0.0"

= language=3D"*"

= processorArchitecture=3D"x86"

= publicKeyToken=3D"6595b64144ccf1df"

</dependentAssembly= >

</depen= dency>

</assem= bly>

À peut près tous les exécutables ou DLL ou OCX contiennent des manifest. Cela aide Vista = et Windows 7 à déterminer si l’utilisateur a les droits nécessaires à rouler le fichier ou non, dépendant du niveau d’accès de l’utilisateur dans Windows.

Dans Windows 7 et Vista, nous avons maintenant une nouvelle option en faisant souri droite sur un exécut= able et on peut choisir ‘run as administrator’ qui nous permet d’élever les droits de l’utilisateur au niveau d’administrateur pour certaine action comme enregistrer un DLL. Si le= UAC (User Account Control) est coché ou pour Windows 7 à son plus haut niveau, si on utilise la souri droite et ‘run as administrator’, Windows nous présente avec cette question = ;:

3D"http://www.sweetpotatosoftware.com/SPSBlog/content/binary/UACDialog.=

Qui demande à l’utilis= ateur la permission de rouler cet exécutable qui est bonne chose en soit. Donc certains exécutables ont un niveau élevé de permission= et d’autre non, mais peut-on changer ce niveau à l’intérieur d’un exécutable? La réponse est oui. Il s’agit d’extraire le manifest d’un application, y modifier la permission et réintroduire le manifest dans l’exécutable. V= oici comment extraire le manifest d’un excécutable.

Declare Long LoadLibrary In WIN32API String

Declare Long FindResource In WIN32API Long, Long, Long

Declare Long LoadResource In WIN32API Long, Long

Declare Long SizeofResource In WIN32API Long, Long

Declare Long FreeLibrary In WIN32API Long

Declare Long FreeResource In WIN32API Long

&= nbsp;

Local = lcModule, hModule

m.lcM= odule =3D Getfile("EXE|D= LL")

m.hMo= dule =3D LoadLibrary(m.lcModule)

m.lnR= src =3D FindResource(m.hModule, 1, 24)

m.lnM= em =3D LoadResource(m.hModule, m.lnRsrc)

m.lnS= ize =3D SizeofResource(m.hModule, m.lnRsrc)

m.lcM= anifest =3D Sys(2600, m.lnMem, m.lnSize= )

FreeR= esource(m.lnMem)

FreeLibrar= y(m.hModule)

?m.lcManifest

Ceci donne à peut-ceci (dépendant de l’exécutable)

<?= xml version=3D"1.0" standalone=3D"yes"?>

<a= ssembly xmlns=3D"urn:schemas-microsoft-com:asm.v1" manifestVersion=3D"1.0">

<assemblyIdent= ity version=3D"1.0.0.0" type=3D"win32" name=3D"Microsoft.VisualFoxPro" processorArchitecture=3D"x86"/>

<description&g= t;Visual FoxPro</description>

<dependency>= ;

= <dependentAssembly>

&= nbsp; <assemblyIdentity type=3D"win32" name=3D"Microsoft.Windows.Common-Cont= rols" version=3D"6.0= .0.0" language=3D"*" processorArchitecture=3D"x86" publicKeyToken=3D"6595b64144ccf1df"/>

= </dependentAssembly>

</dependency&g= t;

<file name=3D"serial.dll"= ;>

= <comClass description=3D"seri= al.SerialNumber" clsid=3D"{460475AD-AA67-41AB-9551-9D8D49C80633}" progid=3D"serial.SerialNumber" threadingModel=3D"Both"/= ></file><trustInfo xmlns=3D"urn:schemas-microsoft-com:asm.v3"><= /i>

         = <security>

        &= nbsp;     <requestedPrivileges>=

        &= nbsp;          <requ= estedExecutionLevel level=3D"AsInvoker" uiAccess=3D"false"/>

        &= nbsp;     </requestedPrivileges>

         = </security>

&nbs= p;    </trustInfo></assembly><= /span>

Note : La portion en gras et Italique doit etre ajouter manuellement pour faire référence au DLL et la méthode du DLL.

Vous remarquerez que le niveau d’accès est ‘AsInvoker’ qui veut dire que Windows = va traiter l’action basé sur les droits de l’utilisateur. Si l’utilisateur n’a pas le droit, Windows va refuser de rouler l’exécutable. On peut replacer ‘AsInvoker’ par ‘requireAdministrator’, ce qui aura pour effet qui Windows va demander la permission pour rouler l’exécutable (comme l’image ci-haut).

Pour remettre le manifest dans l’exécutale on peut crée un fichier texte vide, coller = le manifest ci-haut, et nommer le manifest avec le meme nom que l’ex&eac= ute;cutable et y ajouter l’extension .manifest (ie : monexe.exe.manifest) et recompiler l’executable, et Foxpro va incoporer le manifest dans l’exécutable.

Et lorsque le va voir l’executable dans le répertoire, on peut voir ceci :=

Qui indique que l’exécutable requiert l’accès administrateur pour être roulé.

Mais un autre avantage d’un fichier manifest est que l’on peut introduire l’accès à un DLL dans la manifest et y ajout= e un permission plus élevé dans un exécutable. Et l’e= ffet secondaire est le DLL n’a plus besoin d’être enregistré dans la base de registre pour fonctionner et si on réduit le UAC à un niveau normal, le DLL (sans enregistrement= ) va fonctionner normalement et Windows ne pose plus de questions.

Voici un exemple concret.=

Mettez tout dans le même répertoire.

1.       Créez un projet vide.

2.       Ajouter un prg qui contient ceci :

DEFINE CLASS Serial= Number AS SESSION OLEPUBLIC

&= nbsp;     FUNCTION Getserial() AS STRING

&= nbsp;           LO= CAL objWMI,colClass,objClass,strComputer

=             <= /span>CREATE CURSOR PhysicalMedia (SerialNumber c(100) NULL)

=             s= trComputer =3D "."

=             o= bjWMI =3D GETOBJECT("winmg= mts:\\" +strComputer + "\root\cimv2")

=             c= olClass =3D objWMI.ExecQuery("Select * from Win32_PhysicalMedia",,48)

=             <= /span>FOR EACH objClass IN colClass

=             &nb= sp;      IF !ISNULL= (objClass.SerialNumber)

=             &nb= sp;            = INSERT INTO PhysicalMedia (SerialNumber) VALUES (objClass.SerialNumber)

=             &nb= sp;      ENDIF

&= nbsp;           NE= XT

&= nbsp;           LO= CATE

&= nbsp;           RE= TURN PhysicalMedia.serialnumber

=       ENDFUNC

ENDDEFINE

3.   &n= bsp;   Compilez ceci en DLL (Multi-Theaded DLL). Ceci a pour effet d’enregistrer le DLL sur votre ordinateur. Si vous etes en Windows 7 = ou Vista, il faut rouler VFP en mode administrateur pour enregistrer un DLL. <= o:p>

4.   &n= bsp;   Créez au autre projet et ajoutez un programme avec ceci dedans:

public o=

o =3D createobject<= /span>("serial.serialnumber")

messagebox( o.getserial())

5.&n= bsp;      Compilez le en exécutable.

6.   &n= bsp;   Utilisez le code ci-haut pour extraire le manifest du DL= L.

7.   &n= bsp;   Créez un fichier texte et collez le manifest récupéré dedans et renommez le fichier serialtest.exe.manifest (le même nom que votre exécutable et ajoutez l’extension .manifest)

8.   &n= bsp;   Recompilez votre exe. Foxpro va automatiquement incorpor= er le manifest.

9.   &n= bsp;   Testez votre exe. Il devrait apparaitre un messagebox av= ec le numéro de série de votre disque dur.

10.   Si cela fonctionne, maintenant déenregistrez votre DLL avec « regsvr32 mondll= .dll /u ».

11.   Si tout c’est b= ien passé le DLL devrait toujours vous donner le numéro de série de votre disque dur. Même un fois déenregistré.