先新建一个工程。添加控件
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); //读取返回信息