界面库

修改目录结构
2023-09-21 16:51:53 +08:00
parent e35938ec54
commit f77770db66
38 changed files with 30 additions and 7 deletions
@@ -6772,10 +6772,11 @@ type tcustomprocess = class(tcomponent)  //
        **}
        if fprocesshandle then return 0;
        if fexecstr then 
-        begin
-            if not(ifstring(e) and e) then return 0;
+        begin            
            e := exe;
+            if not(ifstring(e) and e) then return 0;
            arg := cmd;
+            
        end else 
        begin
            if not parserasexeclevparam(exe,cmd,e,arg,envp) then return 0;