61 lines
1.4 KiB
Plaintext
61 lines
1.4 KiB
Plaintext
program ABTool;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses {$IFDEF UNIX} {$IFDEF UseCThreads}
|
|
cthreads, {$ENDIF} {$ENDIF}
|
|
Interfaces, // this includes the LCL widgetset
|
|
Forms,
|
|
SysUtils,
|
|
fMain,
|
|
dMain,
|
|
uFileUtils,
|
|
uPackage,
|
|
uPackageUtils,
|
|
uPackageList;
|
|
|
|
{$R *.res}
|
|
|
|
var
|
|
// путь к файлу ABTool.exe
|
|
ABToolExePath: String;
|
|
|
|
// путь к директории ABTool
|
|
ABToolDataPath: String;
|
|
|
|
// путь к директории ABTool\Packages
|
|
ABToolPkgPath: String;
|
|
|
|
// путь к директории ABTool\Languages
|
|
ABToolLangPath: String;
|
|
|
|
// путь к директории ABTool\Logs
|
|
ABToolLogPath: String;
|
|
|
|
begin
|
|
RequireDerivedFormResource := True;
|
|
Application.Initialize;
|
|
|
|
// настройка путей к директориям
|
|
ABToolExePath := ExtractFilePath(ParamStr(0));
|
|
ABToolDataPath := ABToolExePath + 'ABTool\';
|
|
ABToolPkgPath := ABToolDataPath + 'Packages\';
|
|
ABToolLangPath := ABToolDataPath + 'Languages\';
|
|
ABToolLogPath := ABToolDataPath + 'Logs\';
|
|
|
|
// подготовка директорий
|
|
if not DirectoryExists(ABToolPkgPath) then
|
|
ForceDirectories(ABToolPkgPath);
|
|
if not DirectoryExists(ABToolLangPath) then
|
|
ForceDirectories(ABToolLangPath);
|
|
if not DirectoryExists(ABToolLogPath) then
|
|
ForceDirectories(ABToolLogPath);
|
|
|
|
Application.CreateForm(TMainDM, MainDM);
|
|
Application.CreateForm(TfmMain, fMain.fmMain);
|
|
Application.Run;
|
|
end.
|
|
|
|
|
|
|