1berry/Inno-Setup-issrc
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

VersionInfoOriginalFileName parameter support

Browse Source
This commit is contained in:
kleuter 2018-06-24 22:09:59 +02:00
parent 9eac03d093
commit f94766497b
5 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Components/ScintStylerInnoSetup.pas
View File

@ -247,6 +247,7 @@ type
ssVersionInfoProductTextVersion,
ssVersionInfoTextVersion,
ssVersionInfoVersion,
ssVersionInfoOriginalFileName,
ssWindowResizable,
ssWindowShowCaption,
ssWindowStartMaximized,

5
Projects/CompResUpdate.pas
View File

@ -22,7 +22,7 @@ procedure UpdateIcons(const FileName, IcoFileName: String);
procedure UpdateVersionInfo(const F: TFile;
const NewBinaryFileVersion, NewBinaryProductVersion: TFileVersionNumbers;
const NewCompanyName, NewFileDescription, NewTextFileVersion, NewLegalCopyright,
NewProductName, NewTextProductVersion: String);
NewProductName, NewTextProductVersion, OriginalFileName: String);
implementation
@ -42,7 +42,7 @@ end;
procedure UpdateVersionInfo(const F: TFile;
const NewBinaryFileVersion, NewBinaryProductVersion: TFileVersionNumbers;
const NewCompanyName, NewFileDescription, NewTextFileVersion, NewLegalCopyright,
NewProductName, NewTextProductVersion: String);
NewProductName, NewTextProductVersion, OriginalFileName: String);
function WideStrsEqual(P1, P2: PWideChar): Boolean;
@ -181,6 +181,7 @@ begin
UpdateStringValue(VersRes, 'VS_VERSION_INFO'#0'StringFileInfo'#0'000004b0'#0'FileVersion'#0, NewTextFileVersion);
UpdateStringValue(VersRes, 'VS_VERSION_INFO'#0'StringFileInfo'#0'000004b0'#0'LegalCopyright'#0, NewLegalCopyright);
UpdateStringValue(VersRes, 'VS_VERSION_INFO'#0'StringFileInfo'#0'000004b0'#0'ProductName'#0, NewProductName);
UpdateStringValue(VersRes, 'VS_VERSION_INFO'#0'StringFileInfo'#0'000004b0'#0'OriginalFileName'#0, OriginalFileName);
UpdateStringValue(VersRes, 'VS_VERSION_INFO'#0'StringFileInfo'#0'000004b0'#0'ProductVersion'#0, NewTextProductVersion);
UpdateFixedFileInfo(VersRes, 'VS_VERSION_INFO'#0, NewBinaryFileVersion, NewBinaryProductVersion);

8
Projects/Compile.pas
View File

@ -194,6 +194,7 @@ type
ssVersionInfoProductTextVersion,
ssVersionInfoTextVersion,
ssVersionInfoVersion,
ssVersionInfoOriginalFileName,
ssWindowResizable,
ssWindowShowCaption,
ssWindowStartMaximized,
@ -381,7 +382,7 @@ type
VersionInfoVersion, VersionInfoProductVersion: TFileVersionNumbers;
VersionInfoVersionOriginalValue, VersionInfoCompany, VersionInfoCopyright,
VersionInfoDescription, VersionInfoTextVersion, VersionInfoProductName,
VersionInfoDescription, VersionInfoTextVersion, VersionInfoProductName, VersionInfoOriginalFileName,
VersionInfoProductTextVersion, VersionInfoProductVersionOriginalValue: String;
SetupIconFilename: String;
@ -4289,6 +4290,9 @@ begin
ssVersionInfoDescription: begin
VersionInfoDescription := Value;
end;
ssVersionInfoOriginalFileName: begin
VersionInfoOriginalFileName := Value;
end;
ssVersionInfoProductName: begin
VersionInfoProductName := Value;
end;
@ -9083,7 +9087,7 @@ begin
AddStatus(SCompilerStatusUpdatingVersionInfo);
UpdateVersionInfo(ExeFile, VersionInfoVersion, VersionInfoProductVersion, VersionInfoCompany,
VersionInfoDescription, VersionInfoTextVersion,
VersionInfoCopyright, VersionInfoProductName, VersionInfoProductTextVersion);
VersionInfoCopyright, VersionInfoProductName, VersionInfoProductTextVersion, VersionInfoOriginalFileName);
{ For some reason, on Win95 the date/time of the EXE sometimes
doesn't get updated after it's been written to so it has to

1
Projects/SetupLdrVersion.rc
View File

@ -27,6 +27,7 @@ BEGIN
VALUE "LegalCopyright", " \0"
VALUE "ProductName", " \0"
VALUE "ProductVersion", " \0"
VALUE "OriginalFileName", " \0"
END
END
BLOCK "VarFileInfo"

BIN
Projects/SetupLdrVersion.res
View File

Binary file not shown.