Показать/скрыть сенсорную клавиатуру 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 простой запуск уже не работает.
Кто как делал? Очень интересны примеры кода.