You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
49 lines
1.3 KiB
Plaintext
49 lines
1.3 KiB
Plaintext
{
|
|
This file is part of R&Q.
|
|
Under same license
|
|
}
|
|
unit aboutDlg;
|
|
{$I RnQConfig.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, SysUtils, Sciter, SciterApi;
|
|
|
|
{$I PubRTTI.inc}
|
|
|
|
type
|
|
TAboutInfo = record
|
|
ver, build, sciterver, opensslver, bassver, icsver, synopsever, zstdver: String;
|
|
end;
|
|
|
|
{$I NoRTTI.inc}
|
|
|
|
procedure GetAboutInfo(tag: Pointer; argc: UINT; argv: PSciterValue; retval: PSciterValue); cdecl;
|
|
|
|
implementation
|
|
|
|
uses
|
|
SciterLib, globalLib, RQUtil, RnQLangs, RnQGlobal, CLBox, SynCommons, ZSTDLib;
|
|
|
|
procedure GetAboutInfo(tag: Pointer; argc: UINT; argv: PSciterValue; retval: PSciterValue); cdecl;
|
|
var
|
|
AboutInfo: TAboutInfo;
|
|
begin
|
|
AboutInfo.ver := IntToStr(RnQBuild) + ' ' + GetTranslation('Build') + ' ' + IntToStr(RnQBuildCustom);
|
|
{$IFDEF CPUX64}
|
|
AboutInfo.ver := AboutInfo.ver + ' x64';
|
|
{$ENDIF CPUX64}
|
|
AboutInfo.build := GetTranslation('Built at') + ' ' + DateTimeToStr(builtTime) + ' [Mikanoshi]';
|
|
AboutInfo.sciterver := GetLibVersion(SCITER_DLL_DIR + 'sciter.dll');
|
|
AboutInfo.bassver := GetLibVersion(ModulesPath + 'bass.dll');
|
|
AboutInfo.synopsever := SYNOPSE_FRAMEWORK_VERSION;
|
|
if FileExists(ZSTDDllName) then
|
|
AboutInfo.zstdver := ZSTD_versionString
|
|
else
|
|
AboutInfo.zstdver := '';
|
|
V2S(UI.RecordToVar(AboutInfo), retval);
|
|
end;
|
|
|
|
end.
|