让程序一行一行的执行

[blf]

想让下列程序先执行完第一条,在执行第二行.请给出原代码

winexec('C:\sqlany50\win32\dbbackup -c "uid=dba;pwd=sql;
dbf=D:\jyzdb.db" D:\ /y',1);
RenameFile('D:\jyzdb.db','D:\j01.db');

[lotto]

使用一个标志，在第一个命令执行之前，先做好标记，在两个语句之间增加循环语句，如果第一个命令没有执行完，就继续循环，否则跳出循环，继续执行下一条命令。

[Michaelyfj]

lotto的方法也许是解决办法之一，但并不是理想的方法;
我提供一个过程参考，基本上能达到你的目的：
procedure execute(ln:Pchar;nShow:Integer);
var
StartInfo : TStartupInfo;
ProcInfo : TProcessInformation;
begin
GetStartupInfo(StartInfo);
StartInfo.dwFlags:=STARTF_USESHOWWINDOW;
StartInfo.wShowWindow := nShow; //窗口显示状态
if CreateProcess(nil, PChar(ln), nil, nil, false, 0, nil, nil, StartInfo, ProcInfo)=False then
raise Exception.Create('不能执行程序 ' + ln);
WaitForSingleObject(ProcInfo.hProcess, INFINITE); //等待程序执行完毕
end;

至于调用(very easy)：
Execute('C:\sqlany50\win32\dbbackup -c "uid=dba;pwd=sql;
dbf=D:\jyzdb.db" D:\ /y',1);

[JGTM2000]

楼上所说极是。而楼上的楼上要记得在循环里面ProcessMessages和sleep，不然会吃掉无数CPU资源。

[zhouzq]

look

[kxy]

同意顶楼的楼下，顶楼的方法不好，建议不使用：）