Y
yonge23
Unregistered / Unconfirmed
GUEST, unregistred user!
帮助看一下.谢谢先...<br> <br>var <br> SI: TStartupInfo;<br> PI: TProcessInformation;<br> <br>begin<br> FillChar(sI,sizeof(sI),#0);<br> sI.cb := SizeOf(sI); // CREATE_NEW_CONSOLE or<br> si.dwFlags:=STARTF_USESTDHANDLES; //or STARTF_USESTDHANDLES<br> SI.wShowWindow := SW_hide; <br> s:='cmd.exe /k C:/turboc2/tcc -exxx '+filename+'>'+refilename;<br> //i:=ShellExecute(handle, 'open', PChar('command.com'), PChar(s), nil, SW_hide); --以前用这个DOS窗口不会显示出来.<br> CreateProcess(nil,pchar(s),nil,nil,false,NORMAL_PRIORITY_CLASS, nil, nil, sI, pI) ; --现在DOS窗口会显示出来.<br>end;<br><br>怎么使DOS窗口不显示出来, SI.wShowWindow := SW_hide; 这样不行吗!?