编辑器

添加编译功能

funcext/tvclib/utslvclstdctl.tsf

@@ -6802,8 +6802,25 @@ type tcustomprocess = class(tcomponent)  //
         {$endif}  
         ///////////////////////////处理管道////////////////////////                
         Sysexecnewpipe(0);
-        ferrinfo := nil;        
-        hd := sysexec(e,arg,nil,false,code); 
+        ferrinfo := nil;  
+        sdir :=nil; 
+        if ifstring(fStartupDirectory) and fStartupDirectory then 
+        begin
+            if fStartupDirectory[length(fStartupDirectory)]=iofileseparator() then 
+            begin
+                if filelist("",fStartupDirectory+"*") then 
+                begin 
+                    sdir := fStartupDirectory;
+                end
+            end else 
+            begin 
+                if filelist("",fStartupDirectory) then 
+                begin 
+                    sdir := fStartupDirectory+iofileseparator();
+                end
+            end 
+        end      
+        hd := sysexec(e,arg,sdir,false,code); 
         if hd=0 then 
         begin
             return 0;
@@ -6849,7 +6866,8 @@ type tcustomprocess = class(tcomponent)  //
         fonprcstart := nil;
         fonprocended := nil;               
     end 
-    published    
+    published  
+    property StartupDirectory read  fStartupDirectory write  fStartupDirectory;
     property handle read fprocesshandle;
     property errinfo read ferrinfo;
     property exename read fexestring;
@@ -6865,6 +6883,7 @@ type tcustomprocess = class(tcomponent)  //
         @param(handle)(pointer) 进程句柄 %%    
     **}
     private //成员变量
+    fStartupDirectory;
     fexecstr;
     ferrinfo;    
     fprocesshandle;