32 lines
1.4 KiB
Plaintext
32 lines
1.4 KiB
Plaintext
unit cde_kernel;
|
|
{$mode delphi}
|
|
{$codepage UTF8}
|
|
interface
|
|
uses LazFileUtils, sysutils, cde_dir, SimplyJSON, VersionControl, windows;
|
|
{stdcalls}
|
|
function GetCDEVer (const AProgramName: String): TVersionInfo; STDCALL;
|
|
function GetCDEVerStr (const AProgramName: String): String; STDCALL;
|
|
function ShowMessageBox (const AHandle: HWND; const AText, ATitle: String; const AMessageType: LongInt; const AMessageBtns: LongInt = 0): Integer; STDCALL;
|
|
implementation
|
|
//Versions
|
|
//Исполльзуйте в роли AProgramName следующее:
|
|
// package -- версия сборки;
|
|
// dll -- версия cdejecter.dll;
|
|
// cde -- версия оболочки командной строки;
|
|
// cdeg -- версия GUI-приложения.
|
|
function GetCDEVer (const AProgramName: String): TVersionInfo;
|
|
begin
|
|
Result:= StrToVersionInfo(JSReadString('/' + AProgramName + '/version', '0.0.0.0', GetCDEPath + 'configs\version.json'));
|
|
end;
|
|
function GetCDEVerStr (const AProgramName: String): String;
|
|
begin
|
|
Result:= JSReadString('/' + AProgramName + '/string', '0.0.0.0', GetCDEPath + 'configs\version.json');
|
|
end;
|
|
//MessageBoxes
|
|
function ShowMessageBox (const AHandle: HWND; const AText, ATitle: String; const AMessageType: LongInt; const AMessageBtns: LongInt = 0): Integer;
|
|
begin
|
|
MessageBeep(AMessageType);
|
|
Result:= MessageBoxW(AHandle, PChar(AText), PChar(ATitle), AMessageType + AMessageBtns);
|
|
end;
|
|
end.
|