Как добавить целевую платформу в проект Delphi с помощью OpenTools API
-
21-12-2019 - |
Вопрос
В Delphi (от XE2 до XE5), как можно программно добавить целевую платформу в проект?
Под "программным способом" я подразумеваю использование OpenTools API, в отличие от преобразования файла .dproj.Это должно быть сделано внутри IDE Wizard/Expert.
Я просмотрел модуль ToolsAPI, и, похоже, вы можете получить активную платформу и список поддерживаемых платформ, но нет ничего очевидного для добавления новой целевой платформы.
Решение
Кажется, что это возможно.Устройство, в которое вам нужно заглянуть, - это PlatformAPI
.Интерфейс, в котором есть то, что вам нужно, - это:
{ Provides information on platform-specific information held by a project }
IOTAProjectPlatforms160 = interface(IInterface)
['{E1C62726-BD51-4D4E-A2F2-9A8A59F272AE}']
{ Add an available platform to the project }
procedure AddPlatform(const PlatformName: string);
{ Return the currently active platform key }
function CurrentPlatform: string;
{ Return enabled state of the requested platform }
function GetEnabled(const PlatformName: string): Boolean;
{ Return an array of strings representing the enabled platforms for a project }
function GetEnabledPlatforms: TArray<string>;
{ Return the profile name associated with the specified platform }
function GetProfile(const PlatformName: string): string;
{ Does the project support platform specified by PlatformName? }
function GetSupported(const PlatformName: string): Boolean;
{ Return an array of strings representing the valid platforms for a project }
function GetSupportedPlatforms: TArray<string>;
{ Set a platform as disabled for this project (cannot be made active) }
procedure SetEnabled(const PlatformName: string; Value: Boolean);
{ Set the profile name for the specified platform. Pass an empty string to
clear the profile }
procedure SetProfile(const PlatformName, ProfileName: string);
{ Indicate the specified platform is supported or not }
procedure SetSupported(const PlatformName: string; Value: Boolean);
{ Return whether or not the profile associated with PlatformName is the default profile
for that platform }
function UsingDefaultProfile(const PlatformName: string): Boolean;
property EnabledPlatforms: TArray<string> read GetEnabledPlatforms;
property Enabled[const PlatformName: string]: Boolean read GetEnabled write SetEnabled;
property Profile[const PlatformName: string]: string read GetProfile write SetProfile;
property Supported[const PlatformName: string]: Boolean read GetSupported write SetSupported;
property SupportedPlatforms: TArray<string> read GetSupportedPlatforms;
end;
То AddPlatform
метод, похоже, ваш парень.
Обратите внимание, что я не пытался вызвать этот метод.На самом деле все, что я делал, это искал это слово платформа в папке с исходным кодом tools API.