Browse Source

+ removed getlasterror

michael 26 years ago
parent
commit
47045ce6d3
1 changed files with 1 additions and 1 deletions
  1. 1 1
      fcl/inc/pipes.pp

+ 1 - 1
fcl/inc/pipes.pp

@@ -67,7 +67,7 @@ begin
     OutPipe:=ToutputPipeStream.Create (OutHandle);
     OutPipe:=ToutputPipeStream.Create (OutHandle);
     end
     end
   Else
   Else
-    Raise EPipeCreation.CreateFmt (EPipeMsg,[getlasterror])
+    Raise EPipeCreation.Create (EPipeMsg)
 end;
 end;
 
 
 Function TPipeStream.Seek (Offset : Longint;Origin : Word) : longint;
 Function TPipeStream.Seek (Offset : Longint;Origin : Word) : longint;