delphi调用cmd执行一连串指令问题

我要调用cmd，先创建一个目录，然后登陆ftp，下载一个文件下面的代码不行，我每一个命令用/c隔开
 WinExec(PChar('cmd /c mkdir C:\wat /c ftp 100.10.15.109 /c cmm /c qawsx /c cd /WRV/LG /c ASCII /c lcd C:/wat /c get TOG /c'),1); 该怎么写啊 

解决方案 »

  1.   

    一定要用DOS命令吗，写个bat调用一下，应该可以，关注一下。
      

  2.   

    bat怎么写啊要是wat目录存在就不用创建目录
      

  3.   


    var
      F:TextFile;
    begin
      AssignFile(F,'doself.bat');
      Rewrite(F);            {F为TextFile类型}
      WriteLn(F,....);       
      //这里把你要执行的DOS命令一行行用WriteLn写好
      WriteLn(F,'del %0');   //删除自己doself.bat
      CloseFile(F);
      WinExec('doself.bat',SW_HIDE);
    end;
      

  4.   

    一次执行一个指令
    变量和结构语句用delphi
      

  5.   

    直接多条dos命令最好试用官道的方式来实现