+ add new functions to dummy/pipes.inc, fixes WinCE building

git-svn-id: trunk@18211 -

packages/fcl-process/src/dummy/pipes.inc

@@ -28,3 +28,12 @@ begin
   Result := 0;
 end;
 
+function TInputPipeStream.GetPosition: Int64;
+begin
+  Result:=FPos;
+end;
+
+procedure TInputPipeStream.InvalidSeek;
+begin
+  Raise EPipeSeek.Create (ENoSeekMsg);
+end;