【文件属性】：
文件名称：Delphi 管道学习DEMO
文件大小：184KB
文件格式：RAR
更新时间：2020-05-21 11:20:18
DELPHI管道
这个是我学习的一个管道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;
【文件预览】：
管道
----Unit1.dcu(7KB)
----Project1.exe(413KB)
----Unit1.dfm(1KB)
----Project1.dpr(255B)
----Unit1.pas(3KB)
----Project1.res(5KB)
----Unit2.pas(52B)
----Project1.dproj(3KB)
----Unit2.dcu(329B)