CEF4Delphi 语言区域设置

本文整理自网络，侵删。

 
program MiniBrowser;

{$I cef.inc}

uses
  {$IFDEF DELPHI16_UP}
  Vcl.Forms,
  WinApi.Windows,
  SysUtils,
  {$ELSE}
  Forms,
  Windows,
  SysUtils,
  Dialogs,
  {$ENDIF }
  uCEFApplication,
  uMiniBrowser in 'uMiniBrowser.pas' {MiniBrowserFrm},
  uPreferences in 'uPreferences.pas' {PreferencesFrm},
  uSimpleTextViewer in 'uSimpleTextViewer.pas' {SimpleTextViewerFrm};

{$R *.res}

{$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE}


var
  LLibDir  : string;
  LDirChar : array [0..MAX_PATH - 1] of Char;
  LRunFlag : Boolean;
begin
  CreateGlobalCEFApp;


    //-------------------------------------------------- -------------------------
  //  设置库（例如DLL）的路径，并设置语言和语言环境
  //  需要SysUtils，使用中的对话框
  //-------------------------------------------------- -------------------------
  LRunFlag := True;
  try
  //%LOCALAPPDATA%
    LLibDir := ExtractFilePath(ParamStr(0));
    FillChar(LDirChar, SizeOf(LDirChar), #0);
    ExpandEnvironmentStrings(PChar(LLibDir), LDirChar, MAX_PATH);
    LLibDir := LDirChar;
    if not (DirectoryExists(LLibDir)) then begin
      MessageBox(0, '程序路径缺少相关文件', '启动异常', MB_ICONERROR);
      LRunFlag := False;
    end else begin
      GlobalCEFApp.FrameworkDirPath   := LLibDir;
      GlobalCEFApp.LocalesDirPath     := LLibDir + '\locales';
      GlobalCEFApp.ResourcesDirPath   := LLibDir;
      GlobalCEFApp.AcceptLanguageList := 'zh-CN';
      GlobalCEFApp.LocalesRequired    := 'zh-CN';
      GlobalCEFApp.Locale := 'zh-CN';
    end;
  except
    LRunFlag := False;
  end;
  if not LRunFlag then begin
    GlobalCEFApp.Free;
    Exit;
  end;
  //---------------------------------------------------------------------------


  if GlobalCEFApp.StartMainProcess then
    begin
      Application.Initialize;
      {$IFDEF DELPHI11_UP}
      Application.MainFormOnTaskbar := True;
      {$ENDIF}
      Application.CreateForm(TMiniBrowserFrm, MiniBrowserFrm);
      Application.CreateForm(TPreferencesFrm, PreferencesFrm);
      Application.CreateForm(TSimpleTextViewerFrm, SimpleTextViewerFrm);
      Application.Run;
    end;

  DestroyGlobalCEFApp;
end.
 

相关阅读 >>

Delphi tstreamreader tfile assignfile读取文本文件

Delphi xe5 android 设置权限

Delphi中模拟鼠标点击事件

Delphi 数据库获取所有用户名

使用indy解决base64回车换行问题

Delphi实现拖动无标题窗口的5种方法

Delphi从网上获取北京时间

Delphi tms web core 从js调用pascal函数

Delphi 输出用空格对齐字符串的函数

Delphi 坐标截图如何实现

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » CEF4Delphi 语言区域设置