用createprocess执行word,需要为外部程序指定一个叁数'd:/aaa.doc',如果这个文档是stringlist中的某一项,那么该如何写呢?(5

  • 主题发起人 主题发起人 lkdbdlkq
  • 开始时间 开始时间
L

lkdbdlkq

Unregistered / Unconfirmed
GUEST, unregistred user!
用createprocess执行word,需要为外部程序指定一个叁数'd:/aaa.doc',如果这个文档是stringlist中的某一项,那么该如何写呢?(5分)<br />var<br>x:integer;<br>wordlist:tstringlist;<br>si:startupinfor;<br>pi:process_information;<br><br>begin<br> &nbsp; &nbsp;wordlist:=tstringlist.create;<br> &nbsp; &nbsp;wordlist.add(....);<br> &nbsp; &nbsp; &nbsp;<br> &nbsp; &nbsp;for x:=1 to wordlist.count do begin<br> &nbsp; &nbsp;createprocess(nil,'d:/office/word.exe wordlist[x-1]',nil,nil,false,0,nil,nil,si,pi);<br> &nbsp;end; <br><br>end;<br><br>调试半天,总是不成功,如何妆wordlist中和doc文档作为word.exe的参数来传递呢?
 
'd:/office/word.exe wordlist[x-1]' -&gt;<br>'d:/office/word.exe '+wordlist[x-1]
 
var<br>x:integer;<br>wordlist:tstringlist;<br>si:startupinfor;<br>pi:process_information;<br><br>begin<br> &nbsp; &nbsp;wordlist:=tstringlist.create;<br> &nbsp; &nbsp;wordlist.add(....);<br> &nbsp; &nbsp; &nbsp;<br> &nbsp; &nbsp;for x:=1 to wordlist.count do begin<br> &nbsp; &nbsp;createprocess(nil,'d:/office/word.exe &quot;'+wordlist[x-1]+'&quot;',nil,nil,false,0,nil,nil,si,pi);<br> &nbsp;end; <br><br>end;<br><br>word.exe 后面有个空格再加双引号再个单引号,<br>wordlist[x-1]后的单引去掉,改成+'&quot;',<br>请注意我修改的那里,最好复制到你的程序里。
 
多人接受答案了。
 
后退
顶部