浏览代码

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;