这个是我学习的一个管道DEMO,分享出来,大家一起学习 procedure TForm1.WriteToPipe(Pipe: THandle; Value: string); var len: integer; BytesWrite: DWord; Buffer: PChar; begin len := Length(Value) + 1; Buffer := PChar(Value + #10); //#10换行,只有在换行时,cmd.exe才认为命令确认输入 WriteFile(Pipe, Buffer[0], len, BytesWrite, nil); end;