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

Merge pull request #122 from mronkain/master

Browse Source 
Use FSetCurrentDir in CheckCEFLibrary
This commit is contained in:
Salvador Díaz Fau 2018-07-04 08:57:55 +02:00 committed by GitHub
commit b6c306030f
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
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;