S swean_98 Unregistered / Unconfirmed GUEST, unregistred user! 2007-05-05 #1 如题!需要实现如Copy A.text+B.Text c.txt的效果。<br>原来实用Stringlist实现的,可是文件比较大,文件量也比较多,实现速度相比较DOS的Copy命令比较慢,哪位高人指点一下!
如题!需要实现如Copy A.text+B.Text c.txt的效果。<br>原来实用Stringlist实现的,可是文件比较大,文件量也比较多,实现速度相比较DOS的Copy命令比较慢,哪位高人指点一下!
L lisongmagic Unregistered / Unconfirmed GUEST, unregistred user! 2007-05-05 #2 哇,搞定了,给分吧<br>uses shellApi;<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br> cmd: string;<br>begin<br> cmd:= 'Copy a.txt+b.txt c.txt';<br> ShellExecute(0,pchar('open'),pchar('cmd.exe'), pchar('/k'+ cmd),nil,SW_hide);<br>end;
哇,搞定了,给分吧<br>uses shellApi;<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br> cmd: string;<br>begin<br> cmd:= 'Copy a.txt+b.txt c.txt';<br> ShellExecute(0,pchar('open'),pchar('cmd.exe'), pchar('/k'+ cmd),nil,SW_hide);<br>end;