matlab中可以使用dos命令如何在delphi中实现比如在一个memo中输入一个命令,如dir,回显当前目录下的文件

解决方案 »

  1.   

    http://blog.sina.com.cn/s/blog_4bd18f710100ki9d.html
      

  2.   

    如果楼主嫌楼上朋友提供连接的方法太烦的话,可以这么来更简单(方法有点粗暴,在delphi上调试运行会出提示,但运行exe时不会。你可以顺着这思路完善它):procedure TForm1.Button1Click(Sender: TObject);
    begin
      WinExec('Command.com /C dir C:\WINDOWS\Debug > .\test.txt',SW_Hide);//显示C:\WINDOWS\Debug目录及其子目录里的文件
      while true do begin
        Application.ProcessMessages;
        try
          Memo1.Lines.LoadFromFile('.\test.txt');//将临时文件加载到memo
          DeleteFile('.\test.txt');//删除临时文件
          break;
        except
        end;
      end;
    end;
      

  3.   

      WinExec('Command.com /C dir C:\WINDOWS\Debug /s > .\test.txt',SW_Hide);//显示C:\WINDOWS\Debug目录及其子目录里的文件
    打漏了个参数 s
      

  4.   

    可以用邮槽重定向CMD的输入输出啊~~