|
@@ -25,12 +25,19 @@ Uses
|
|
|
Function CreatePipeHandles (Var Inhandle,OutHandle : Longint) : Boolean;
|
|
Function CreatePipeHandles (Var Inhandle,OutHandle : Longint) : Boolean;
|
|
|
|
|
|
|
|
begin
|
|
begin
|
|
|
|
|
+{$ifdef ver1_0}
|
|
|
|
|
+ Result := AssignPipe (Inhandle,OutHandle);
|
|
|
|
|
+{$else}
|
|
|
Result := (AssignPipe (Inhandle,OutHandle)<>-1);
|
|
Result := (AssignPipe (Inhandle,OutHandle)<>-1);
|
|
|
|
|
+{$endif}
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.6 2003-11-14 11:08:50 marco
|
|
|
|
|
|
|
+ Revision 1.7 2003-11-22 12:47:07 sg
|
|
|
|
|
+ * Fixed Marco's fix to make the pipes unit compiling in both branches again
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.6 2003/11/14 11:08:50 marco
|
|
|
* assignpipe fix
|
|
* assignpipe fix
|
|
|
|
|
|
|
|
Revision 1.5 2002/09/07 15:15:29 peter
|
|
Revision 1.5 2002/09/07 15:15:29 peter
|
sg