获取目标程序的IHTMLDocument2后，不可以填表提交吗？

Question

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  MV: Cardinal;        //MessageValue
  IRut: Cardinal;
  IDOC: IHTMLDocument2;
  SL1: TStringList;
  I: Integer;
  // Radio: OleVariant;
  Temp: OleVariant;
begin
  try
    if HWND_CursorPos > 0 then
    begin
      MV := RegisterWindowMessage('WM_HTML_GETOBJECT');
      SendMessageTimeout(HWND_CursorPos, MV, 0, 0, SMTO_ABORTIFHUNG, 1000, IRut);
      if ObjectFromLresult(IRut, IID_IHTMLDocument2, 0, IDoc) = S_OK then
        begin
            (IDOC.all.item('Match_'+ SL1.Strings[I], 0) as IHTMLInputElement).checked := True;
            // Radio := IDOC.all.item(ID2_FundsTo, 0);  
            // Radio.Click;
            或者
            Temp := IDOC.all.item('domainchkBox', 0);
            Temp.SelectedIndex := 2;
            Temp.value := 'as12324234'
            //或者
            Temp := IDOC;
            Temp.all.item('domainchkBox', 0).SELECTEDINDEX := 1;
            Temp.all.item('domainchkBox', 0).OnChange;
            Temp.all.item('unameInp', 0).value := S_password;
            Temp.all.item('passwInp', 0).value := S_password;
          end;
        end
      else
        ShowMessage('失败');
    end;
  except  end;
end;供参考