BriskBard, CEF4Delphi, WebView4Delphi, WebUI4Delphi and WebUI4CSharp

Code: Select all

  GHINID := '9731150';
  for i := 1 to GHINID.length do
  begin
    WVBrowser1.SimulateKeyEvent(ketRawKeyDown, 0, Ord(GHINID[i]), 0);
    WVBrowser1.SimulateKeyEvent(ketChar, 0, Ord(GHINID[i]), 0);
    WVBrowser1.SimulateKeyEvent(ketKeyUp, 0, Ord(GHINID[i]), 0);
  end;  

Code: Select all

  GHINID := '9731150';
  for I := 1 to GHINID.Length do
  begin
    TempKeyEvent.kind := KEYEVENT_RAWKEYDOWN;
    TempKeyEvent.modifiers := 0;
    TempKeyEvent.windows_key_code := Ord(GHINID[I]);
    TempKeyEvent.native_key_code := 0;
    TempKeyEvent.is_system_key := Ord(false);
    TempKeyEvent.character := #0;
    TempKeyEvent.unmodified_character := #0;
    TempKeyEvent.focus_on_editable_field := Ord(false);
    Chromium1.SendKeyEvent(@TempKeyEvent);
    TempKeyEvent.kind := KEYEVENT_CHAR;
    Chromium1.SendKeyEvent(@TempKeyEvent);
    TempKeyEvent.kind := KEYEVENT_KEYUP;
    Chromium1.SendKeyEvent(@TempKeyEvent);
  end;

Code: Select all

[0531/095730.151:INFO:CEF4Delphi(1)] kind: KEYEVENT_RAWKEYDOWN, modifiers: $00000100, windows_key_code: $00000072, native_key_code: $003D0001, is_system_key: False, character: $0000, unmodified_character: $0000, focus_on_editable_field: False
[0531/095730.217:INFO:CEF4Delphi(1)] kind: KEYEVENT_KEYUP, modifiers: $00000100, windows_key_code: $00000072, native_key_code: $C03D0001, is_system_key: False, character: $0000, unmodified_character: $0000, focus_on_editable_field: False

Code: Select all

[0531/100217.454:INFO:CEF4Delphi(1)] kind: KEYEVENT_RAWKEYDOWN, modifiers: $00000502, windows_key_code: $00000010, native_key_code: $002A0001, is_system_key: False, character: $0000, unmodified_character: $0000, focus_on_editable_field: False
[0531/100217.644:INFO:CEF4Delphi(1)] kind: KEYEVENT_RAWKEYDOWN, modifiers: $00000102, windows_key_code: $00000074, native_key_code: $003F0001, is_system_key: False, character: $0000, unmodified_character: $0000, focus_on_editable_field: False
[0531/100217.718:INFO:CEF4Delphi(1)] kind: KEYEVENT_KEYUP, modifiers: $00000102, windows_key_code: $00000074, native_key_code: $C03F0001, is_system_key: False, character: $0000, unmodified_character: $0000, focus_on_editable_field: False
[0531/100217.859:INFO:CEF4Delphi(1)] kind: KEYEVENT_KEYUP, modifiers: $00000100, windows_key_code: $00000010, native_key_code: $C02A0001, is_system_key: False, character: $0000, unmodified_character: $0000, focus_on_editable_field: False

Code: Select all

function TWVBrowserBase.KeyboardShortcutSearch : boolean;
begin
  Result := SimulateKeyEvent(ketRawKeyDown, $100, VK_F3, integer($003D0001)) and
            SimulateKeyEvent(ketKeyUp,      $100, VK_F3, integer($C03D0001));
end;

function TWVBrowserBase.KeyboardShortcutRefreshIgnoreCache : boolean;
begin
  Result := SimulateKeyEvent(ketRawKeyDown, $502, VK_Shift, integer($002A0001)) and
            SimulateKeyEvent(ketRawKeyDown, $102, VK_F5,    integer($003F0001)) and
            SimulateKeyEvent(ketKeyUp,      $102, VK_F5,    integer($C03F0001)) and
            SimulateKeyEvent(ketKeyUp,      $100, VK_Shift, integer($C02A0001));
end;