delphi – 如何在我的应用程序中手动包含VCL样式？

我有一个应用程序,它使用条件来编译它作为VCL Forms应用程序或Delphi XE2中的Windows服务应用程序.但是,由于我手动更改了项目的主源文件,因此IDE将不再允许我使用标准的“项目选项”窗口进行某些修改.具体来说,我无法选择VCL样式来包含或实现.

因此,我必须手动实现VCL样式.因此,我将两个必要的单元Vcl.Themes和Vcl.Styles添加到我的项目的初始化单元(在这种情况下与项目的主单元不同),并且基本上将工作应用程序中的代码复制到这个新应用程序中.

这是该项目的主要单位：

program MyServiceApplication;

uses
  uMyService in 'uMyService.pas' {MyService: TService},uMyServiceMain in 'uMyServiceMain.pas',uMyServiceInit in 'uMyServiceInit.pas',uMyServiceTest in 'uMyServiceTest.pas' {frmMyServiceTest};

{$R *.RES}

begin
  RunMyService;
end.

然后在项目的初始化单元中：

unit uMyServiceInit;

interface

uses
{$IFDEF TESTAPP}
  Vcl.Forms,Vcl.Themes,Vcl.Styles,uMyServiceTest,{$ELSE}
  Vcl.SvcMgr,uMyService,{$ENDIF TESTAPP}
  uMyServiceMain
  ;

procedure RunMyService;

implementation

procedure RunMyService;
begin
{$IFDEF TESTAPP}
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  TStyleManager.TrySetStyle('Carbon'); //<--- WILL NOT RUN - STYLE DOES NOT EXIST
  Application.Title := 'My Windows Service Application';
  Application.CreateForm(TfrmMyServiceTest,frmMyServiceTest);
{$ELSE}
  if not Application.DelayInitialize or Application.Installing then
    Application.Initialize;
  Application.CreateForm(TMyService,MyService);
{$ENDIF TESTAPP}
  Application.Run;
end;

end.

问题是,当应用程序运行时,我收到错误样式’Carbon’无法找到.只是因为这种风格尚未被包含并编译到应用程序中.

如何手动将此样式编译到此应用程序中,以便VCL样式可以实现它？

PS：初始化在一个单独的单元中的原因是因为如果条件在应用程序的主单元内实现,IDE将破坏代码.

编辑

我尝试了一件事：我打开了一个工作项目的.dproj文件并搜索了这个样式的碳,希望在那里找到一些配置,因为工作项目使用了这种风格,但没有运气.该文件中的任何位置都不存在该单词.

CARBON VCLSTYLE "C:..RAD Studio9.0RedistStylesVclCarbon.vsf"

<VCL_Custom_Styles>&quot;Amakrits|VCLSTYLE|$(PUBLIC)DocumentsRAD Studio9.0StylesAmakrits.vsf&quot;;&quot;Amethyst Kamri|VCLSTYLE|$(PUBLIC)DocumentsRAD Studio9.0StylesAmethystKamri.vsf&quot;;&quot;Aqua Graphite|VCLSTYLE|$(PUBLIC)DocumentsRAD Studio9.0StylesAquaGraphite.vsf&quot;</VCL_Custom_Styles>