Delphi 执行cmd命令

---

• 说明：

主要代码是从 http://tieba.baidu.com/p/3214053453 抄录的

---

---

• Demo下载：执行cmd命令

---

• 主要思路

{
    建立两条管道，一条负责从程序（进程）往新建立的cmd进程传信息，另一条则反过来，从cmd进程传信息给程序
    程序通过 WriteIn 写入，cmd进程 从 ReadIn 读到程序写入的信息
    cmd进程 的返回值或错误通过 WriteOut 写入，程序从 ReadOut 读到 cmd进程的返回信息
                              ┌────────────────┐
                              │                                │( 定时器定时检查这条线 )
               Createpipe(ReadOut, WriteOut, @Security, 0);     │
                                      ∧                        │
      ┌───────────────┘                        ∨
    cmd进程                                                    程序
      ∧       Createpipe