Сенсорная клавиатура Windows

[slav_z]

Показать/скрыть сенсорную клавиатуру Windows.

unit Lib.Keyboard;

interface

uses
  Winapi.Windows,
  Winapi.ActiveX,
  System.Win.ComObj,
  FMX.Forms,
  FMX.Platform.Win;

procedure ToggleSensorKeyboard(Form: TCommonCustomForm);

implementation

const
  CLSID_UIHostNoLaunch: TGUID = '{4CE576FA-83DC-4F88-951C-9D0782B4E376}';

type
  ITipInvocation = interface
  ['{37C994E7-432B-4834-A2F7-DCE1F13B834B}']
    procedure Toggle(WND: HWND); safecall;
  end;

procedure ToggleSensorKeyboard(Form: TCommonCustomForm);
var TipInvocation: ITipInvocation;
begin

  OleCheck(CoCreateInstance(
    CLSID_UIHostNoLaunch,nil,CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER,
    ITipInvocation,TipInvocation));

  TipInvocation.Toggle(FormToHWND(Form));

end;

end.

C:\Program Files\Common Files\microsoft shared\ink\TabTip.exe - Сенсорная клавиатура Windows. В Windows 10 простой запуск уже не работает.

Кто как делал? Очень интересны примеры кода.

 

Изменено 8 мая, 2019 пользователем slav_z
лишнее