Создание компилируемого приложения на Delphi с динамическими настройками

Delphi , Программа и Интерфейс , IDE и Компилятор

Вопрос пользователя заключается в создании приложения, которое позволяет пользователям выбирать некоторые опции, нажимать кнопку, и в результате создается отдельное компилируемое приложение. При этом пользователь использует Delphi 7 и 2010. Он хочет, чтобы конечный продукт был графическим приложением, которое создавало бы графическое приложение-цель (App B) с использованием настроек, выбранных в приложении-источнике (App A). App B должно быть распределено в виде одного исполняемого файла, включающего скомпилированное приложение и данные конфигурации.

Подходы к решению задачи

Использование компилятора Delphi

Один из способов реализации — использование командной строки компилятора Delphi (DCC32.EXE) для создания исполняемого файла из исходных кодов. Однако, стоит учитывать, что компилятор Delphi не может быть распространен, и пользователю потребуется легальная копия Delphi или своего рода "псевдо-компилятор".

Эмулирование компиляции

Возможен подход, при котором исходное приложение (App A) содержит в своих ресурсах целевое приложение (App B), которое затем извлекается и модифицируется данными конфигурации. Это можно сделать, используя, например, Win32 API функцию UpdateResource().

Пример кода на Object Pascal

// Пример кода для извлечения ресурса из App A в App B
uses
  System.SysUtils,
  System.Classes,
  Winapi.Windows;

// Функция для извлечения ресурса
function ExtractResource(const Executable: TFileName; const ResourceName, ResourceType: string; const OutputFile: TFileName): Boolean;
var
  hModule: THandle;
  hResource: THandle;
  dwSize: DWORD;
  dwData: PByte;
  dw-written: DWORD;
begin
  Result := False;
  hModule := LoadLibrary(Executable);
  if hModule <> 0 then
  try
    hResource := FindResource(hModule, PChar(ResourceName), PChar(ResourceType));
    if hResource <> 0 then
    try
      dwSize := SizeofResource(hModule, hResource, RT_RCDATA);
      if dwSize <> 0 then
      try
        GetResourceData(hResource, RT_RCDATA, dwData, dwSize);
        if dwData <> 0 then
        try
          FileModeCreate(OutputFile, fmOpenWrite or fmCreate);
          FileWrite(OutputFile, dwData^, dwSize, dw-written);
          Result := (dw-written = dwSize);
        finally
          FreeMem(dwData);
        end;
      except
        on E: Exception do
          Writeln('Ошибка получения ресурса: ', E.ClassName, ' ', E.Message);
      end;
    finally
      FreeResource(hResource);
    end;
  finally
    FreeLibrary(hModule);
  end;
end;

Альтернативные подходы

Использование скриптового движка, такого как PascalScript, или генерация и компоновка кода в исполняемый файл с помощью PaxCompiler. Также можно рассмотреть использование Inno Setup с последующей модификацией ресурсов с помощью ResHacker.

Заключение

Выбор подхода зависит от конкретных требований и ограничений проекта. Важно также учитывать юридические аспекты распространения и модификации исполняемых файлов.

Создано по материалам из источника по ссылке.

Пользователь хочет создать приложение на Delphi, которое будет генерировать другие приложения с динамическими настройками.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: IDE и Компилятор ::