UPD: Copyright year

This commit is contained in:
Alexander Koblov 2024-01-03 13:52:24 +03:00
commit 018d03a567
3 changed files with 5 additions and 4 deletions

View file

@ -31,7 +31,7 @@
<MinorVersionNr Value="1"/>
<RevisionNr Value="9"/>
<Attributes pvaPreRelease="False"/>
<StringTable FileDescription="Double Commander" InternalName="DOUBLECMD" LegalCopyright="Copyright (C) 2006-2023 Alexander Koblov" ProductName="Double Commander"/>
<StringTable FileDescription="Double Commander" InternalName="DOUBLECMD" LegalCopyright="Copyright (C) 2006-2024 Alexander Koblov" ProductName="Double Commander"/>
</VersionInfo>
<BuildModes Count="5">
<Item1 Name="Debug" Default="True"/>

View file

@ -184,8 +184,7 @@ begin
if WSVersion <> EmptyStr then
DCDebug('Widgetset library: ' + WSVersion);
DCDebug('This program is free software released under terms of GNU GPL 2');
DCDebug('(C)opyright 2006-2023 Alexander Koblov (alexx2000@mail.ru)');
DCDebug(' and contributors (see about dialog)');
DCDebug(Copyright + LineEnding + ' and contributors (see about dialog)');
Application.ShowMainForm:= False;
Application.CreateForm(TfrmHackForm, frmHackForm);

View file

@ -43,7 +43,8 @@ var
DCVersion, // Double Commander version
TargetWS, // Target WidgetSet of Lazarus
OSVersion, // Operating System where DC is run
WSVersion // WidgetSet library version where DC is run
WSVersion, // WidgetSet library version where DC is run
Copyright
: String;
procedure InitializeVersionInfo;
@ -318,6 +319,7 @@ begin
with TVersionInfo.Create do
begin
Load(HINSTANCE);
Copyright:= StringFileInfo.Items[0].Values['LegalCopyright'];
DCVersion:= Format('%d.%d.%.d', [FixedInfo.FileVersion[0],
FixedInfo.FileVersion[1],
FixedInfo.FileVersion[2]]);