delphi 循环调用shellexcute

Question

菜鸟请教为什么这样无法成功调用ShellExecute
try
    with qry_ryxx, ICStruct do
    begin
      First;
      while not eof do
      begin
     ShellExecute(Self.Handle,
                 'Open',
                  pchar('d:\123.exe' ),
                  pChar(pchar(vNo)),
                   '',
                  SW_SHOWNORMAL);
         Next;
      end;
    end;
  finally
 end;

Answer 1

Delphi当中有First这个语法吗？

Answer 2

不过我看不出他到底想干什么……运行程序和操作数据库无关吧……
要循环调用用for语句不就行了？

Answer 3

是我没有表达清楚，我的意思是在执行一次ShellExecute调用能够实现执行exe文件，但是循环调用就不行

Answer 4

循环可以的， 你检查下  pchar('d:\123.exe' ),这个路径对不对 

Answer 5

已经搞定了ShellExecute 之后sleep一段时间等这个事务完成之后再继续往下走