1
0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-02-02 10:25:26 +02:00

Added TCefApplication.SetCurrentDir property to set the current directory before loading the CEF libraries

This commit is contained in:
Salvador Díaz Fau 2017-10-06 16:28:28 +02:00
parent 6dbaa022da
commit 07ee3fd484

View File

@ -122,6 +122,7 @@ type
FReRaiseExceptions : boolean;
FUpdateChromeVer : boolean;
FShowMessageDlg : boolean;
FSetCurrentDir : boolean;
FChromeVersionInfo : TFileVersionInfo;
FLibHandle : THandle;
FOnRegisterCustomSchemes : TOnRegisterCustomSchemes;
@ -139,7 +140,7 @@ type
function GetLibCefPath : string;
function GetChromeElfPath : string;
function LoadCEFlibrary : boolean;
function LoadCEFlibrary : boolean; virtual;
function Load_cef_app_capi_h : boolean;
function Load_cef_browser_capi_h : boolean;
function Load_cef_command_line_capi_h : boolean;
@ -246,6 +247,7 @@ type
property EnableGPU : boolean read FEnableGPU write FEnableGPU;
property CheckCEFFiles : boolean read FCheckCEFFiles write FCheckCEFFiles;
property ShowMessageDlg : boolean read FShowMessageDlg write FShowMessageDlg;
property SetCurrentDir : boolean read FSetCurrentDir write FSetCurrentDir;
property ChromeMajorVer : uint16 read FChromeVersionInfo.MajorVer;
property ChromeMinorVer : uint16 read FChromeVersionInfo.MinorVer;
property ChromeRelease : uint16 read FChromeVersionInfo.Release;
@ -365,6 +367,7 @@ begin
FReRaiseExceptions := False;
FLibLoaded := False;
FShowMessageDlg := True;
FSetCurrentDir := False;
FUpdateChromeVer := aUpdateChromeVer;
UpdateDeviceScaleFactor;
@ -856,6 +859,8 @@ end;
function TCefApplication.LoadCEFlibrary : boolean;
begin
if FSetCurrentDir then chdir(ExtractFileDir(ParamStr(0)));
FLibHandle := LoadLibraryEx(PChar(LibCefPath), 0, LOAD_WITH_ALTERED_SEARCH_PATH);
if (FLibHandle = 0) then