Fix dummy and wince fcl-process code after commit 54157a17

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

@@ -195,5 +195,5 @@ end;
 
 function TIODescriptor.SysIsTypeSupported(AValue: TIOType): Boolean;
 begin
-  Result:=aValue in [ioType,iotNone];
+  Result:=aValue in [ioType,iotDefault];
 end;

packages/fcl-process/src/wince/process.inc

@@ -384,7 +384,7 @@ var
   Res : Boolean;
   
 begin
-  if IOType in [iotNone,iotFile] then begin
+  if IOType in [iotDefault,iotFile] then begin
     Result:=aHandle;
     exit;
   end;