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.

推荐分享