pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-01-03 10:15:38 +02:00
Code Issues Actions Releases Activity

Use FSetCurrentDir in CheckCEFLibrary as well so that the resource checking is done from the right place when the working directory is different from the executable location.

Browse Source
This commit is contained in:
mronkain 2018-07-03 15:54:50 +03:00
parent 53b8b53c5a
commit d26e42ba17
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
source/uCEFApplication.pas
View File

@ -762,7 +762,7 @@ end;
function TCefApplication.CheckCEFLibrary : boolean;
var
TempString : string;
TempString, TempOldDir : string;
TempMissingFrm, TempMissingRsc, TempMissingLoc : boolean;
begin
Result := False;
@ -771,6 +771,12 @@ begin
Result := True
else
begin
if FSetCurrentDir then
begin
TempOldDir := GetCurrentDir;
chdir(GetModulePath);
end;
TempMissingFrm := not(CheckDLLs(FFrameworkDirPath, FMissingLibFiles));
TempMissingRsc := not(CheckResources(FResourcesDirPath, FMissingLibFiles, FCheckDevToolsResources));
TempMissingLoc := not(CheckLocales(FLocalesDirPath, FMissingLibFiles, FLocalesRequired));
@ -804,6 +810,9 @@ begin
ShowErrorMessageDlg(TempString);
end;
if FSetCurrentDir then chdir(TempOldDir);
end;
end;