fix: fakeinput support for headless mode

Author: Torwent

osrs/fakeinput.simba

@@ -47,35 +47,44 @@ This is automatically called for you on the {ref}`RemoteInput variable`.
 procedure TRemoteInput.Setup();
 var
   timer: TCountDown;
+  window: TWindowHandle;
+  pid: TProcessID;
 begin
-  if GetSimbaTargetWindow().GetClassName() <> 'SunAwtCanvas' then Exit;
+  {$IFDEF SIMBAHEADLESS}
+  window := StrToInt(Target.ToString().Between('Handle=', ','));
+  {$ELSE}
+  window := GetSimbaTargetWindow();
+  {$ENDIF}
+
+  if window.GetClassName() <> 'SunAwtCanvas' then
+    Exit;
+
+  pid := window.GetPID();
 
   try
-    RIInject(GetSimbaTargetPID());
+    RIInject(pid);
   except
     if GetExceptionMessage() = 'Access violation' then
       ErrorDialog(
         'RemoteInput',
         'A different RemoteInput has already been paired with this client.' +
         LINE_SEP + LINE_SEP + 'Please open a new one.'
-      )
-    else
-      raise GetExceptionMessage();
+      );
+    raise GetExceptionMessage();
   end;
 
   timer.Start(2000);
   repeat
     try
-      Self.Target := EIOS_PairClient(GetSimbaTargetPID());
+      Self.Target := EIOS_PairClient(pid);
     except
       if GetExceptionMessage() = 'Access violation' then
         ErrorDialog(
           'RemoteInput',
           'A different RemoteInput has already been paired with this client.' +
           LINE_SEP + LINE_SEP + 'Please open a new one.'
-        )
-      else
-        raise GetExceptionMessage();
+        );
+      raise GetExceptionMessage();
     end;
 
     if Self.Target <> nil then
@@ -90,12 +99,16 @@ begin
   end;
 
   try
-    Target.SetPlugin({$MACRO LOADEDLIB(libremoteinput)}, ToStr(GetSimbaTargetPID()), RSClient.Canvas);
+    Target.SetPlugin({$MACRO LOADEDLIB(libremoteinput)}, ToStr(pid), RSClient.Canvas);
   except
     if GetExceptionMessage() = 'Access violation' then
-      raise GetDebugLn('RemoteInput', 'A different RemoteInput has already been paired with this client. Please open a new one.')
-    else
-      raise GetExceptionMessage();
+      ErrorDialog(
+        'RemoteInput',
+        'A different RemoteInput has already been paired with this client.' +
+        LINE_SEP + LINE_SEP + 'Please open a new one.'
+      );
+
+    raise GetExceptionMessage();
   end;
 end;
 
@@ -128,11 +141,19 @@ This is automatically called for you on the {ref}`WaspInput variable`.
 *)
 procedure TWaspInput.Setup();
 var
+  window: TWindowHandle;
   pid: TProcessID;
 begin
-  if GetSimbaTargetWindow().GetClassName() <> 'JagRenderView' then Exit;
+  {$IFDEF SIMBAHEADLESS}
+  window := StrToInt(Target.ToString().Between('Handle=', ','));
+  {$ELSE}
+  window := GetSimbaTargetWindow();
+  {$ENDIF}
+
+  if window.GetClassName() <> 'JagRenderView' then
+    Exit;
 
-  pid := GetSimbaTargetPID();
+  pid := window.GetPID();
   Inject({$MACRO LOADEDLIB(waspinput)}, pid);
   Target.SetPlugin({$MACRO LOADEDLIB(waspinput)}, ToStr(pid), RSClient.Canvas);
   Self.Target := @pid;