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 双击richedit高亮所有关键字

firemonkey 手机 app 的手势

Delphi 防止程序重复打开运行

Delphi里参数修饰符const、var、out的作用分别是什么?

Delphi 中的split 函数

Delphi bmp jpg 转换保存

Delphi中实现控件的拖拽

Delphi xe 遍历指定数据库，清空各表记录

Delphi中利用msdasc来配置数据库链接

Delphi下载网站文件(支持https协议)

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

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