编辑器

优化
2023-03-14 15:02:23 +08:00
parent 73ad8b3530
commit 8d828d167f
2 changed files with 14 additions and 2 deletions
@@ -3193,7 +3193,18 @@ type tgtkapis = class() //gtk
    function openresourcemanager(p); //打开资源管理器
 		  begin
 		      if ifstring(p) then 
-		          return tsl_gtk_execsystem(format('nautilus   "%s" &',p));        
+		      begin 
+		          for i := length(p) downto 1 do 
+		          begin
+		              if p[i]="/" then 
+		              begin
+		                  tsl_gtk_execsystem(format('caja   "%s" &',p[1:i])); 
+		                  break;
+		              end 
+		          end 		          
+		          tsl_gtk_execsystem(format('nautilus   "%s" &',p)); 
+		          return 1;
+		      end        
 		  end 
    /////////////////////////////pipe process///////////执行程序相关/////////////////////////////
   //function tsl_gtk_closehandle(p:pointer):integer;cdecl;external "plugin/libTSLUIL.so";