fix current dir locking

pd81 · Feb 1, 2021 · 0ac1b6e · 0ac1b6e
1 parent ab051a4
commit 0ac1b6e
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/UFrmUnzip.pas b/UFrmUnzip.pas
@@ -46,6 +46,9 @@ procedure TFrmUnzip.Execute;
   Z: TZipFile;
   ZFile, ZFileNormalized, ZPath: string;
 begin
+  AppDir := ExtractFilePath(Application.ExeName);
+  ChDir(AppDir);
+
   Dir := GetEnvironmentVariable('UPD_PATH');
 
   if Dir.IsEmpty then
@@ -54,7 +57,7 @@ procedure TFrmUnzip.Execute;
   if not DirectoryExists(Dir) then
     raise Exception.Create('Component directory does not exist');
 
-  BkpDir := ExcludeTrailingPathDelimiter(Dir)+'_'+FormatDateTime('yyyymmdd-hhnnss', Now);
+  BkpDir := ExcludeTrailingPathDelimiter(Dir)+'_bkp-'+FormatDateTime('yyyymmdd-hhnnss', Now);
 
   I := 5;
   while not System.SysUtils.RenameFile(Dir, BkpDir) do
@@ -68,7 +71,7 @@ procedure TFrmUnzip.Execute;
 
   Z := TZipFile.Create;
   try
-    Z.Open(TPath.Combine(ExtractFilePath(Application.ExeName), 'data.zip'), zmRead);
+    Z.Open(TPath.Combine(AppDir, 'data.zip'), zmRead);
 
     for ZFile in Z.FileNames do
     begin