Delphi 管道学习DEMO

这个是我学习的一个管道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;