lazarus编写的应用开启（windows） 暗黑模式(2025-05-25更新)

QQ群大神大悟还俗发现fpcudeluxe在windows能实现暗黑模式，提取相关代码后，用lazarus编写的应用也可以实现暗黑模式。
实现暗黑模式的步骤：

1、文件从（https://github.com/zamtmn/metadarkstyle）提取出以下7个文件，并拷贝到project目录（已将metadarkstyle打包，下载地址：https://www.123pan.com/s/6OFxjv-JFdu3?提取码:iBiZ）
2、打开project文件(*.lpr)的uses增加下图绿框的代码

udarkstyle.pas                                                       
udarkstyleparams.pas                                                 
udarkstyleschemes.pas                                                
udarkstyleschemesloader.pas                                          
uimport.pas                                                          
umetadarkstyle.pas                                                   
uwin32widgetsetdark.pas 

设置深色模式可以选用以下3种模式：

PreferredAppMode:=pamAllowDark;//跟随系统 
                  pamForceDark;//强制深色模式
                  pamForceLight;//强制亮色模式

program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  {$IFDEF HASAMIGA}
  athreads,
  {$ENDIF}
  {$ifdef LCL}
  {$ifdef windows}
  uMetaDarkStyle,
  uDarkStyleSchemes,
  uDarkStyleParams,
  {$endif}
  {$endif}

  Interfaces, // this includes the LCL widgetset
  Forms, unit1
  { you can add units after this };

{$R *.res}

begin
  {$ifdef windows}
  PreferredAppMode:= pamAllowDark;
  uMetaDarkStyle.ApplyMetaDarkStyle(DefaultDark);
  {$endif}
  Application.Scaled:=True;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

 编译后的应用在windows暗黑模式：