Click here to Skip to main content
Click here to Skip to main content

Macro to add a manifest to your application to give XP style

, 27 Feb 2005
Rate this:
Please Sign up or sign in to vote.
Create a manifest file automatically for your application.

Introduction

This article describes a simple macro that creates a template manifest file for your application.

The manifest file is created once, the first time you run this macro into an active project. The file is then placed in your resource folder and added to your project as "YourApplication.exe.Manifest". Then, for each configuration (debug, release...) that you have in your project, this macro will add a custom build operation to be able to copy the manifest resource file beside your executable when you build the application.

When the macro has been run, you can modify the manifest template file directly in your project to suit your needs and then save it. Each time you build your application, the manifest file in the output directory will be updated.

This is my first attempt in writing macros, so kindly apologize for mistakes if any, since the language isn't so powerful. I wasn't able to do it the way I wanted to. If I have the time, I will probably do an add-in instead.

'-----------------------------------------------------------------
'FILE DESCRIPTION: Macros to set a manifest file with your application
'----------------------------------------------------------------------
private const FileString1 = "<?xml version=""1.0"" 
                                      encoding=""UTF-8"" 
                                      standalone=""yes""?>" 
private const FileString2 = "<assembly 
                               xmlns=""urn:schemas-microsoft-com:asm.v1"" 
                               manifestVersion=""1.0"">"
private const FileString3 = "<assemblyIdentity"
private const FileString4 = "    version=""1.0.0.1"""
private const FileString5 = "   processorArchitecture=""x86"""
private const FileString6a = "    name=""Microsoft.Windows."
private const FileString6b = """"
private const FileString7 = "    type=""win32"""
private const FileString8 = "/>"
private const FileString9a = "<description>"
private const FileString9b = "</description>"
private const FileString10 = "<dependency>"
private const FileString11 = "   <dependentAssembly>"
private const FileString12 = "      <assemblyIdentity"
private const FileString13 = "        type=""win32"""
private const FileString14 = "        name=""Microsoft.Windows.Common-Controls"""
private const FileString15 = "        version=""6.0.0.0"""
private const FileString16 = "        processorArchitecture=""X86"""
private const FileString17 = "        publicKeyToken=""6595b64144ccf1df"""
private const FileString18 = "        language=""*"""
private const FileString19 = "      />"
private const FileString20 = "   </dependentAssembly>"
private const FileString21 = "</dependency>"
private const FileString22 = "</assembly>"

Sub MakeManifest()
'DESCRIPTION: Make a manifest file for your application
'AUTHOR: Stephan Poirier, Feb 27th, 2005

 ' Save the workspace
 ExecuteCommand "WorkspaceSave"
 
 ' Ugly assembling of the text for the manifest document
 dim OutString
 OutString = FileString1 + vbCrLf
 OutString = OutString + FileString2 + vbCrLf
 OutString = OutString + FileString3 + vbCrLf
 OutString = OutString + FileString4 + vbCrLf
 OutString = OutString + FileString5 + vbCrLf
 OutString = OutString + FileString6a
 OutString = OutString + Application.ActiveProject.Name
 OutString = OutString + FileString6b + vbCrLf
 OutString = OutString + FileString7 + vbCrLf
 OutString = OutString + FileString8 + vbCrLf
 OutString = OutString + FileString9a
 OutString = OutString + Application.ActiveProject.Name
 OutString = OutString + FileString9b + vbCrLf
 OutString = OutString + FileString10 + vbCrLf
 OutString = OutString + FileString11 + vbCrLf
 OutString = OutString + FileString12 + vbCrLf
 OutString = OutString + FileString13 + vbCrLf
 OutString = OutString + FileString14 + vbCrLf
 OutString = OutString + FileString15 + vbCrLf
 OutString = OutString + FileString16 + vbCrLf
 OutString = OutString + FileString17 + vbCrLf
 OutString = OutString + FileString18 + vbCrLf
 OutString = OutString + FileString19 + vbCrLf
 OutString = OutString + FileString20 + vbCrLf
 OutString = OutString + FileString21 + vbCrLf
 OutString = OutString + FileString22
  
 ' Add it to the project workspace if needed 
 ' (MSDEV will crash if added more than one time)
 Dim s 
 s = IsFileInWorkspace ("SOURCE=.\res\" & _
               Application.ActiveProject.Name & ".exe.Manifest")
 if( s=false ) then 

  ' Create a new doc that is the 
  ' manifest then paste the template text
  Documents.Add "Text"
  ActiveDocument.Selection.StartOfDocument
  ActiveDocument.Selection = OutString

  ' Save document
  ActiveDocument.Save "res\" & Application.ActiveProject.Name & _
                                                   ".exe.Manifest"
  ActiveDocument.Save

  ' Close document
  ActiveDocument.Close

  ' Add the file to the project
  ActiveProject.AddFile "res\" & Application.ActiveProject.Name & _
                                                    ".exe.Manifest"
  msgbox "Added " & Application.ActiveProject.Name & _
                    ".exe.Manifest" & " into the project workspace"
 end if
  
 ' Change project settings to generate a manifest file 
 ' for each output config each time a build is done
 dim cfg
 for each cfg in ActiveProject.Configurations
   PrintToOutputWindow "Set manifest custom buld step for " & cfg
                   cfg.AddCustomBuildStep "copy $(ProjDir)\res\" & _
                                  Application.ActiveProject.Name & _
             ".exe.manifest $(OutDir)\$(TargetName).exe.manifest", _
             "$(OutDir)\$(TargetName).exe.manifest", "Copy manifest"
 next
 
 ' Save the workspace
 ExecuteCommand "WorkspaceSave"

 ' Done
 PrintToOutputWindow "Manifest for " & _
                    Application.ActiveProject.Name & " generated."
 MsgBox "Manifest for" & Application.ActiveProject.Name & " generated."

End Sub

Function IsFileInWorkspace(file)
 Documents.Open ActiveProject.FullName, "Text", True
 IsFileInWorkspace = _
        ActiveDocument.Selection.FindText(file, dsMatchFromStart )
 ActiveDocument.Close
End Function

License

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here

About the Author

Stephan Poirier
Technical Lead Dracon Automatisation Inc.
Canada Canada
I'm a french guy from Quebec, Canada. Having programmed many PLC, industrial machineries and computers in many languages at work... Now stucked with C++ and having fun with... I'm used to program anything professionaly or just for my own fun at home. I like to learn and exchange programming techniques with others.

Comments and Discussions

 
QuestionC++? PinmemberThommy Mewes28-Feb-05 4:22 
AnswerRe: C++? PinmemberKippesoep28-Feb-05 5:41 
This is a VBA (Visual Basic for Applications) macro that runs inside Developer Studio and operates on your C/C++ project.
AnswerRe: C++? PinmemberStephan Poirier28-Feb-05 13:28 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Mobile
Web02 | 2.8.140721.1 | Last Updated 28 Feb 2005
Article Copyright 2005 by Stephan Poirier
Everything else Copyright © CodeProject, 1999-2014
Terms of Service
Layout: fixed | fluid