added ICEProcInputHandler function to retrieve current process

src/ce_interfaces.pas

@@ -218,8 +218,10 @@ type
   ICEProcInputHandler = interface(ICESingleService)
     // add an entry to the list of process which can receive an user input.
     procedure addProcess(aProcess: TProcess);
-    // remove an entry.
+    // removes an entry.
     procedure removeProcess(aProcess: TProcess);
+    // indicates the current process
+    function process(): TProcess;
   end;
 
 

src/ce_procinput.pas

@@ -28,6 +28,7 @@ type
     function singleServiceName: string;
     procedure addProcess(aProcess: TProcess);
     procedure removeProcess(aProcess: TProcess);
+    function process(): TProcess;
   public
     constructor create(aOwner: TComponent); override;
     destructor destroy; override;
@@ -103,6 +104,11 @@ begin
   if fProc = aProcess then
     addProcess(nil);
 end;
+
+function TCEProcInputWidget.process(): TProcess;
+begin
+  exit(fProc);
+end;
 {$ENDREGION}
 
 {$REGION Process input things --------------------------------------------------}