Răsfoiți Sursa

FIX: Shell execute for parent directory (fixes #1354) (#1364)

Demetrius flavious 1 an în urmă
părinte
comite
4d8b7b8b16
1 a modificat fișierele cu 3 adăugiri și 3 ștergeri
  1. 3 3
      src/umaincommands.pas

+ 3 - 3
src/umaincommands.pas

@@ -1414,9 +1414,9 @@ begin
       if Assigned(aFile) then
       try
         if aFile.IsNameValid then
-        begin
-          ShellExecute(aFile.FullPath);
-        end;
+          ShellExecute(aFile.FullPath)
+        else if aFile.Name = '..' then
+          ShellExecute(aFile.Path);
       finally
         FreeAndNil(aFile);
       end;