在delphi中如何调用dos命令？在线等！

在c/c++中做到很简单，如system("dir");system("net send 1.1.1.1 hello");
但是在delphi中如何实现呢？
如果有人知道，我回另开帖加分的，谢谢！

解决方案 »

  1.   

    uses ShellApi;procedure TForm1.Button1Click(Sender: TObject);
    begin
      ShellApi.SHELLEXECUTE(Handle, 'open', 'cmd.exe', '/k dir', nil, SW_SHOWNORMAL);
    end;
      

  2.   

    ShellApi.SHELLEXECUTE的几个参数各是什么意思，比如我还是上边的例子system("net send 1.1.1.1 hello");，如何调用呢？
    hangdle是什么意思谢谢！
      

  3.   

    winexec('cmd  /k dir',sw_Normal);
      

  4.   

    winexec('cmd  /k net send 192.168.0.18 hello',sw_Normal);
      

  5.   

    winexec('cmd  /k net send 192.168.0.18 hello',sw_Normal);