var
Keyboard: IFMXVirtualKeyboardService;
begin
if TPlatformServices.Current.SupportsPlatformService( IFMXVirtualKeyboardService, IInterface( Keyboard ) ) then
if TVirtualKeyboardState.Visible in Keyboard.GetVirtualKeyBoardState then
ShowMessage( 'клавиатура открыта' )
else
ShowMessage( 'клавиатура скрыта' );
end;
ТАК Я на шел для делфи. Но мне нужно для C++