Преглед изворни кода

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

Demetrius flavious пре 1 година
родитељ
комит
4d8b7b8b16
1 измењених фајлова са 3 додато и 3 уклоњено
  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;