Bonjour à tous, il s'agit d'une ancienne application développée en delphi 7.
pour exécuter cette dernière en tant qu'administrateur j'utilise un fichier manifest comme suit :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 <?xml version="1.0" encoding="UTF-8" standalone="yes"?> <assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0"> <assemblyIdentity version="1.0.0.0" processorArchitecture="*" name="MonApplication" type="win32"/> <description>My App Description</description> <!-- uncomment this to enable ComCtl v6 Visual Styles... <dependency> <dependentAssembly> <assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" processorArchitecture="*" publicKeyToken="6595b64144ccf1df" language="*"/> </dependentAssembly> </dependency> --> <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2"> <security> <requestedPrivileges> <requestedExecutionLevel level="requireAdministrator" uiAccess="false"/> </requestedPrivileges> </security> </trustInfo> </assembly>
et j'ai un autre fichier nommé myapp.rc , qui continet la ligne suivante
Code : Sélectionner tout - Visualiser dans une fenêtre à part 1 24 "MyApp.manifest"
puis je le compile a l'aide le la commande :
mon fichier MyApp.res est bien généré .
Code : Sélectionner tout - Visualiser dans une fenêtre à part brcc32 D:\MonApplication\GestTeste\MyApp.rc
j'ai ajouté la ligne
à la forme principal .
Code : Sélectionner tout - Visualiser dans une fenêtre à part {$R myapp.res}
voici le bout du code du source de mon projet :
et mon exécutable est bien généré .
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Application.Initialize; FSplache := TFSplache.Create(Application); // On crée la fenêtre de Splash FSplache.Show; // On affichage de cette fenêtre FSplache.Update; // On force l'affichage de la fenêtre (sinon elle napparait que partiellement) Application.CreateForm(TDataModule1, DataModule1); Application.CreateForm(TFMain, FMain); FSplache.Close; // On ferme la fenêtre de Splash FSplache.Release; // On détruit la fenêtre et on libère la mémoire Application.Run;
chez moi (windows 10 64 bit) ça marche très bien.
mais chez mon client (windows 10 64 bit aussi) l'application se lance mais elle est invisible.
elle se figure seulement dans le gestionnaire de tâche.
mon application est toujours cachée
avez vous une idée SVP?
Partager