|
@@ -79,7 +79,7 @@ end;
|
|
|
|
|
|
destructor TInputPipeStream.Destroy;
|
|
destructor TInputPipeStream.Destroy;
|
|
begin
|
|
begin
|
|
- ClosePipe (FHandle);
|
|
|
|
|
|
+ PipeClose (Handle);
|
|
end;
|
|
end;
|
|
|
|
|
|
Function TInputPipeStream.Write (Const Buffer; Count : Longint) : longint;
|
|
Function TInputPipeStream.Write (Const Buffer; Count : Longint) : longint;
|
|
@@ -109,7 +109,7 @@ end;
|
|
|
|
|
|
destructor TOutputPipeStream.Destroy;
|
|
destructor TOutputPipeStream.Destroy;
|
|
begin
|
|
begin
|
|
- ClosePipe (FHandle);
|
|
|
|
|
|
+ PipeClose (Handle);
|
|
end;
|
|
end;
|
|
|
|
|
|
Function TOutputPipeStream.Read(Var Buffer; Count : Longint) : longint;
|
|
Function TOutputPipeStream.Read(Var Buffer; Count : Longint) : longint;
|