delphi 获取cmd命令返回并显示（笔记）

先新建一个工程。添加控件


Timer1  //用于获取命令输入后的返回信息
Edit1   //用于输入命令
Memo1   //用于显示


如下图：




我们用CreateProcess函数来创建一个cmd进程，如下


  //创建cmd 进程   并且执行 edit1.text  命令
  CreateProcess(nil, PChar(edit1.Text), @Security, @Security, true,NORMAL_PRIORITY_CLASS, nil, nil, StartUpInfo, ProcessInfo);
 




用TerminateProcess 来释放cmd进程如下


TerminateProcess(ProcessInfo.hProcess, 0); //关闭cmd进程




用ReadFile 来读取命令返回信息  如下


 ReadFile(Pipe, Buffer[0], ReadBuffer, BytesRead, nil);  //读取返回信息