anthony
685274a356
Отображение формы настроек переделано. Теперь она создаётся только 1 раз при первом вызове. Добавлен выпадающий списк для выбора локализаций. Кнопка сброса к дефолту изменена. Чтение настроек из abtool.ini (кроме локализаций). Сброс контроллов к актуальным настройкам при каждом показе формы настроек. Считанные настройки хранятся в глобальной переменной внутри uOptions. Таким образом: - исключены циклические ссылки с участием dMain ради доступа к настройкам - теперь можно только вызвать конструктор TOptions, а сам созданный объект нигде не сохранять: объект GlobalOptions уже будет доступен Новая функция dMain.GetLocalesIniFileList для получения списка файлов локализаций. Обновлены ini-файлы. Мелочи по оформлению кода.
133 lines
4.6 KiB
ObjectPascal
133 lines
4.6 KiB
ObjectPascal
unit uPackage;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, IniFiles;
|
|
|
|
type
|
|
{ TPackageType }
|
|
|
|
// Перечисление типов пакета
|
|
TPackageType = (
|
|
// Пакет программ для установки
|
|
ptSoft,
|
|
// Пакет утилит
|
|
ptTools,
|
|
// Неизвестный пакет
|
|
ptUnknown
|
|
);
|
|
|
|
{ TPackage }
|
|
|
|
// Класс пакета
|
|
TPackage = class(TIniFile)
|
|
strict private
|
|
// Имя пакета: [PackageInfo] Name
|
|
FName: string;
|
|
// Описание пакета: [PackageInfo] Description
|
|
FDescription: string;
|
|
// Тип пакета
|
|
FType: TPackageType;
|
|
private
|
|
// Установка информации о пакете
|
|
procedure SetProperties();
|
|
// Определение типа пакета по имени его файла
|
|
function SetType(): TPackageType;
|
|
public
|
|
// Имя пакета: [PackageInfo] Name
|
|
property Name: string read FName;
|
|
// Описание пакета: [PackageInfo] Description
|
|
property Description: string read FDescription;
|
|
// Тип пакета
|
|
property PackageType: TPackageType read FType;
|
|
|
|
// Создание объекта пакета и установка информации о нём
|
|
constructor Create(AIniFilename: string); overload;
|
|
// Деструктор объекта пакета
|
|
destructor Destroy(); override;
|
|
|
|
// Запуск исполняемого файла и получение результатов запуска
|
|
function ExecuteItem(const AFileName, AParams: string; AHideMainWindow: Boolean;
|
|
Out AOutExitcode: Cardinal): Boolean;
|
|
end; // TPackage
|
|
|
|
implementation
|
|
|
|
{ TPackage }
|
|
|
|
{------------------------------------------------------------------------------
|
|
Конструктор: TPackage.Create()
|
|
Назначение: Создание объекта пакета и установка информации о нём
|
|
Вх. параметры: AIniFilename: string - путь к ini-файлу
|
|
------------------------------------------------------------------------------}
|
|
constructor TPackage.Create(AIniFilename: string);
|
|
begin
|
|
inherited Create(AIniFilename, [ifoStripComments, ifoStripInvalid]);
|
|
SetProperties();
|
|
end;
|
|
|
|
{------------------------------------------------------------------------------
|
|
Процедура: TPackage.SetType()
|
|
Назначение: Установка информации о пакете
|
|
------------------------------------------------------------------------------}
|
|
procedure TPackage.SetProperties();
|
|
begin
|
|
FName := Readstring('PackageInfo', 'Name', '<без названия>');
|
|
FDescription := Readstring('PackageInfo', 'Description', '<без описания>');
|
|
FType := SetType();
|
|
end;
|
|
|
|
{------------------------------------------------------------------------------
|
|
Функция: TPackage.SetType()
|
|
Назначение: Определение типа пакета по имени его файла
|
|
Возвращает: TPackageType - тип пакета
|
|
------------------------------------------------------------------------------}
|
|
function TPackage.SetType(): TPackageType;
|
|
var
|
|
SubStr: string;
|
|
begin
|
|
SubStr := Copy(ExtractFileName(FileName), 1, 4);
|
|
if (LowerCase(SubStr) = 'soft') then
|
|
Result := ptSoft
|
|
else if (LowerCase(SubStr) = 'tool') then
|
|
Result := ptTools
|
|
else
|
|
Result := ptUnknown;
|
|
end;
|
|
|
|
{------------------------------------------------------------------------------
|
|
Деструктор: TPackage.Destroy()
|
|
------------------------------------------------------------------------------}
|
|
destructor TPackage.Destroy();
|
|
begin
|
|
inherited Destroy();
|
|
end;
|
|
|
|
{------------------------------------------------------------------------------
|
|
Функция: TPackage.ExecuteItem()
|
|
Назначение: Запуск исполняемого файла и получение результатов запуска
|
|
Вх. параметры:
|
|
AFileName : string - путь к исполняемому файлу
|
|
AParams : string - дополнительные параметры запуска
|
|
AHideMainWindow : Boolean - скрывать главное окно ABTool (true) или нет (false)
|
|
Вых. параметры:
|
|
AOutExitcode : Cardinal - код завершения процесса
|
|
Возвращает: boolean - true при успешном запуске программы, false при неудаче
|
|
------------------------------------------------------------------------------}
|
|
function TPackage.ExecuteItem(const AFileName, AParams: string; AHideMainWindow: Boolean;
|
|
out AOutExitcode: Cardinal): Boolean;
|
|
begin
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
end.
|
|
|
|
|
|
|