Discussion :

[DanielB]

Bonjour,
Je reprends de vielles appli VB5 que je dois faire fonctionner sous Vista et ultérieur.
J'utilise Inno Setup pour créer l'installateur. Le .exe est copié dans "Programmes files" alors que les fichiers qui doivent être mis à jour sont dans "Programdata".
Lorsque je lance l’exécutable les fichiers ne sont mis à jour uniquement si j'exécute en tant qu'administrateur (clic droit..etc). Je voudrais que ce mode d'exécution soit automatique sans la nécessité de faire "clic droit..."
J'ai beaucoup cherché via google mais je n'ai rien trouvé de clair. J'ai modifié le script d'inno setup en créant mes répertoires ou en copiant mes fichiers avec "Permissions: users-full" mais ça ne fonctionne pas !
Je pense que je ne suis pas le seul a avoir eu le problème, pourriez-vous m'aider à trouver la solution ? Est-ce possible avec Inno Setup ou autre solution ?
Par avance je vous remercie

[petit rabot]

Tu fais un clic droit sur ton exécutable > propriété > compatibilité > en bas de la fenêtre coche Exécuter ce programme en tant qu'administrateur

[DanielB]

Merci pour la réponse mais c'est justement ce que je ne veux pas...

Je voudrais que ce mode d'exécution soit automatique sans la nécessité de faire "clic droit..."

Je reste donc sur ma faim.

[petit rabot]

Voici un lien, mais sans être sur que c'est bien cela que tu veux...
http://www.bellamyjc.org/fr/superexec.html

[DanielB]

Merci petit rabot pour ta réponse, je ne connaissais pas SERPEREXEC qui est intéressant puisqu'il permet de lancer un exécutable en mode administrateur tout en masquant le nom et le MDP de l'administrateur. Ceci étant, ce n'est pas ce que je recherche.

Lorsque je lance l’exécutable les fichiers ne sont mis à jour uniquement si j'exécute en tant qu'administrateur (clic droit..etc). Je voudrais que ce mode d'exécution soit automatique sans la nécessité de faire "clic droit..."

D'après la littérature il semble que mon problème puisse être résolu en ajoutant dans le répertoire de l'application un MANIFESTE.
Qu'en pensez-vous, avez-vous un exemple que je puisse modifier facilement ?
Par avance merci

[Aniki]

Salut Daniel

(...)
D'après la littérature il semble que mon problème puisse être résolu en ajoutant dans le répertoire de l'application un MANIFESTE.
Qu'en pensez-vous, avez-vous un exemple que je puisse modifier facilement ?
Par avance merci

Voici un exemple de manifest qui, je crois, devrait répondre à ta demande (je n'ai pas testé...) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
<?xml version='1.0' encoding='UTF-8' standalone='yes'?>
<assembly xmlns='urn:schemas-microsoft-com:asm.v1' manifestVersion='1.0'>
  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
    <security>
      <requestedPrivileges>
        <requestedExecutionLevel level='requireAdministrator' uiAccess='false' />
      </requestedPrivileges>
    </security>
  </trustInfo>
</assembly>

[DanielB]

Merci Aniki pour la réponse. Je vais donc créer un fichier .xml pour faire un essai mais que dois-je faire de ce fichier pour que Windows le prennent en compte.
Par avance merci.

[Aniki]

Il me semble que le fichier manifest doit avoir le même nom que l'exécutable (extension incluse) et avoir comme extension "manifest".
Un petit exemple :
le_nom_de_mon_appli.exe
le_nom_de_mon_appli.exe.manifest

Le fichier manifest devant se trouver dans le même répertoire que l'exécutable.

[DanielB]

Merci Aniki pour la réponse, j'ai procédé comme indiqué pour créer le manifest. Ça fonctionne et windows reconnait bien que le programme a besoin des droits administrateurs, d'ailleurs le petit bouclier est visible dans l'icone du programme.
Moi, je veux que mon exécutable se lance et que les fichiers se mettent à jour comme sous XP. Je précise que mon exécutable est installé dans le dossier "Programmes" et les données dans "ProgramData". L'installation est faite par "inno setup".
Ma difficulté est qu'un fichier .txt n'est pas mis à jour dans "ProgramData".
Suis-je le seul a avoir ce problème ?
Par avance merci

[Aniki]

Dans ton post initial, tu as dit que les fichiers, situés dans ProgramData, devant se mettre à jour ne l'étaient que si ton exécutable était lancé avec les droits Administrateur.
ProgramData ne nécessitant pas ces droits pour pouvoir y écrire, je suppose que tu as un problème dans ton mécanisme de mise à jour.

(...)
Moi, je veux que mon exécutable se lance et que les fichiers se mettent à jour comme sous XP. Je précise que mon exécutable est installé dans le dossier "Programmes" et les données dans "ProgramData". L'installation est faite par "inno setup".
Ma difficulté est qu'un fichier .txt n'est pas mis à jour dans "ProgramData".
Suis-je le seul a avoir ce problème ?
Par avance merci

Là, tu dis qu'un seul fichier n'est pas mis à jour en lançant ton exe avec les droits indirectement (via le manifest).

Le problème ne se présente-t-il pas aussi si tu lances l'exe explicitement avec les droits admin ? (click droit, etc...)
Si non, alors le manifest ne doit pas exactement te donner les mêmes droits que quand tu fais click droit...

Comment fonctionne ton système de mise à jour des fichiers ?
D'où est-ce que tu tires la nouvelle version de tes fichiers ?
Sont-ils directement copiés dans ProgramData ?

[DanielB]

Merci pour la réponse,
L'appli dont je parle ne met à jour qu'un seul fichier texte.
Le fichier est installé sur le PC avec Inno Setup de la manière suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"c:\MaSource\MonFichier.txt"; DestDir: "c:\ProgramData\MaDestination\MonFichier.txt";Permissions: users-modify

Avec VB, à chaque lancement de l'appli, le fichier est supprimé (pour effacer son contenu) puis récréé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
'Suppression du fichier
Kill "c:\ProgramData\MaDestination\MonFichier.txt"
'Exemple pour recréer le fichier et écrire la date dans MonFichier.txt
Dim MyDate
MyDate = Date
CRLF = Chr(13) + Chr(10)
Dim FileNumber
FileNumber = FreeFile
Open c:\ProgramData\MaDestination\MonFichier.txt" For Append As #FileNumber
Print #FileNumber, "Date :"; MyDate;
Close #FileNumber   ' Ferme le fichier."

J'ai constaté que, si je ne supprime pas le fichier à chaque lancement de l'appli, le fichier est bien mis à jour quelque soit l'utilisateur (avec ou sans droit administrateur), le fichier étant donc celui qui a été copié par Inno Setup lors de l'installation. J'en conclus qu'il faudrait qu'au lieu de supprimer le fichier, j'efface son contenu... Qu'en pensez-vous et comment le faire ? Par avance merci

[Aniki]

(...)
J'ai constaté que, si je ne supprime pas le fichier à chaque lancement de l'appli, le fichier est bien mis à jour quelque soit l'utilisateur (avec ou sans droit administrateur), le fichier étant donc celui qui a été copié par Inno Setup lors de l'installation. J'en conclus qu'il faudrait qu'au lieu de supprimer le fichier, j'efface son contenu... Qu'en pensez-vous et comment le faire ? Par avance merci

Et quand tu debogues, il se passe quoi ? Ca plante ? Ca plante pas mais le fichier n'est pas à jour ?
Et en debogage pas à pas, quand tu passe sur la ligne Kill blabla, une erreur est-elle générée ? Si non, est-ce que le fichier est bien supprimé dans ton dossier ProgramData ?

[DanielB]

Bonjour et merci pour la réponse,
Voici ce qui se passe : si j'installe mon fichier (via Inno Setup) sous un compte et que j'exécute mon application avec ce compte, mon fichier texte se met à jour correctement . Ensuite, si je change de compte et que je lance l'appli sous un autre compte le fichier texte est ignoré, sans plantage ni message, il est simplement ignoré. Plus généralement si un fichier texte est créé (Open "c:\ProgramData\MonFichier.txt" For Output Shared As #1) par un utilisateur, l'appli ne le prend pas en compte pour un autre utilisateur car le propriétaire du fichier est différent. Est-ce normal ? Y a-t-il un moyen de contourner le problème. Par avance merci.

[Aniki]

(...) l'appli ne le prend pas en compte pour un autre utilisateur car le propriétaire du fichier est différent. Est-ce normal ? Y a-t-il un moyen de contourner le problème. Par avance merci.

J'imagine que c'est normal. La solution serait de donner les droits d'écriture/modification à tous les utilisateurs. Peut-être est-ce possible de le faire via Inno Setup.
Mais est-ce vraiment ce que tu veux ? Est-ce que tous les utilisateurs doivent se partager un fichier commun ? Ou bien serait-il plus approprié d'avoir un fichier pour chaque utilisateur (et dans ce cas, l'emplacement ne serait plus "common data" mais "user data") ?

[DanielB]

Merci,
Oui, je veux partager ce fichiers entre tous les utilisateurs. J'ai installé le fichier dans c:\users\public et ça fonctionne bien avec tous les utilisateurs, en revanche, mon appli n'arrive pas à copier le fichier dans c:\users\all users

[Aniki]

(...)mon appli n'arrive pas à copier le fichier dans c:\users\all users

Bizarre...
Qu'est-ce qu si passe en mode debug ? Si une erreur est générée, quelle est-elle ? (Err.Description)
Je regarderai demain pour trouver plus d'infos, mais normalement, le dossier ProgramData devrait être là pour ça et devrait marcher.

[DanielB]

MERCI

Et quand tu debogues, il se passe quoi ? Ca plante ? Ca plante pas mais le fichier n'est pas à jour ?
Et en debogage pas à pas, quand tu passe sur la ligne Kill blabla, une erreur est-elle générée ? Si non, est-ce que le fichier est bien supprimé dans ton dossier ProgramData ?

Il ne se passe rien, le code est ignoré, Kill ne supprime pas le fichier et il n'y a pas de mise à jour.
Dans programData, le fichier est supprimé ou mis à jour que s'il a été créé par l'utilisateur qui a lancé l'appli. Donc problème si l'utilisateur change... N'est-ce pas le comportement normal avec UAC ?

[Aniki]

Si j'ai bien tout compris, ce problème a été résolu dans cette discussion, n'est-ce pas DanielB ?
Si c'est le cas, tu peux aussi passer en résolu.

[DanielB]

Nous sommes d'accord, je mets "résolu". MERCI pour votre aide

[Fredman]

Voici un exemple de manifest qui, je crois, devrait répondre à ta demande (je n'ai pas testé...) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
<?xml version='1.0' encoding='UTF-8' standalone='yes'?>
<assembly xmlns='urn:schemas-microsoft-com:asm.v1' manifestVersion='1.0'>
  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
    <security>
      <requestedPrivileges>
        <requestedExecutionLevel level='requireAdministrator' uiAccess='false' />
      </requestedPrivileges>
    </security>
  </trustInfo>
</assembly>

Salut Aniki, a tous

Ce code fonctionne en VBA ?