fix, possible RT err if basepath does not exist

This commit is contained in:
Basile Burg 2015-09-01 15:31:06 +02:00
parent 6da6698ff0
commit 8091356ba5
1 changed files with 1 additions and 1 deletions

View File

@ -393,7 +393,7 @@ begin
curr := '';
getDir(0, curr);
try
if curr <> aBasePath then
if (curr <> aBasePath) and DirectoryExists(aBasePath) then
chDir(aBasePath);
result := expandFileName(aFilename);
finally