How to include additional information into version info file?

[vfclists]

After managing to get the version info code in http://melander.dk/articles/versioninfo/ I'd like to know if its possible to get additional strings into the version file.

I tried adding additional strings to the StringFileInfo block in the application's .rc file but it always get's overwritten by the compile process.

If it wasn't overwritten would the custom strings added be present in the compiled program?

Is the format of that file a standard Microsoft format, or customized for Free Pascal?

[eny]

Isn't it possible to create your own resource file and include it in the program?

(Brief explanation in the wiki.)

[vfclists]

I am not quite sure if it is the right one. I am looking to add some more strings to the .rc file as that is the one associated with version information. Are the contents of the .rc file combined with another file that I can edit?

Isn't it possible to create your own resource file and include it in the program?

(Brief explanation in the wiki.)

[eny]

A workaround that (to my big surprise) seems to work:
1. Enable version information in your project;
2. Check the contents of the generated project rc file and copy that to a different file
   and name that file for example 'myversioninfo.rc'
3. Disable version information in your project.
4. Include your custom resourcefile in the application's main sourcefile
5. Build the project with the newly created resourcefile.

I've tested it with this in my custom resource file (note the 3rd line that says ENY EXtra info):

Code: [Select]

1 VERSIONINFO
FILEVERSION 1,2,2,4
PRODUCTVERSION 1,2,2,4
{
 BLOCK "StringFileInfo"
 {
  BLOCK "040904E4"
  {
   VALUE "Comments", "Extra comments\000"
   VALUE "CompanyName", "Extra company\000"
   VALUE "ENY Extra Info", "Lazarus Info Demo\000"
   VALUE "FileDescription", "Description\000"
   VALUE "FileVersion", "1.2.2.4\000"
   VALUE "InternalName", "Extra internal names\000"
   VALUE "LegalCopyright", "COpyright\000"
   VALUE "LegalTrademarks", "Extra legal trademarks\000"
   VALUE "OriginalFilename", "Extra Original filename\000"
   VALUE "ProductName", "Extra product name\000"
   VALUE "ProductVersion", "1.2.2.4\000"
  }
 }
 BLOCK "VarFileInfo"
 {
  VALUE "Translation", 0x0409, 0x04E4
 }
}

[vfclists]

I tried your approach and it worked.
Very nifty.

A few more replies like this and I will be a Lazarus uber guru

A workaround that (to my big surprise) seems to work:
1. Enable version information in your project;
2. Check the contents of the generated project rc file and copy that to a different file
   and name that file for example 'myversioninfo.rc'
3. Disable version information in your project.
4. Include your custom resourcefile in the application's main sourcefile
5. Build the project with the newly created resourcefile.

I've tested it with this in my custom resource file (note the 3rd line that says ENY EXtra info):

Code: [Select]

1 VERSIONINFO
FILEVERSION 1,2,2,4
PRODUCTVERSION 1,2,2,4
{
 BLOCK "StringFileInfo"
 {
  BLOCK "040904E4"
  {
   VALUE "Comments", "Extra comments\000"
   VALUE "CompanyName", "Extra company\000"
   VALUE "ENY Extra Info", "Lazarus Info Demo\000"
   VALUE "FileDescription", "Description\000"
   VALUE "FileVersion", "1.2.2.4\000"
    .....
  }
 }
 BLOCK "VarFileInfo"
 {
  VALUE "Translation", 0x0409, 0x04E4
 }
}

[vfclists]

I have posted the source for the finished code on my blog, hopefully it will be of some use to others, if there are no bugs lurking in it .

http://devblog.brahmancreations.com/content/free-pascal-win32-versioninfopas.

[DonaldShimoda]

I have posted the source for the finished code on my blog, hopefully it will be of some use to others, if there are no bugs lurking in it .

http://devblog.brahmancreations.com/content/free-pascal-win32-versioninfopas.

I need some like this working on linux. I know i know linux files dont hold version info, and this is the reason for i still need it.