I have a Lenovo tablet
How I can to call the virtual keyboard on win10 pro?
with osk not run !!!
Before to create a my keyboard I wisk Know if I an use the window keyboard.
thanks
"C:\\Program Files\\Common Files\\microsoft shared\\ink\\tabtip.exe")
// Testing GETs
#include "FiveWin.ch"
#define WM_SYSCOMMAND 0x0112
#define SC_CLOSE 0xF060
function Main()
LOCAL oDlg, oGet
local oGet1, oGet2
LOCAL cCad := "Testing " // pad("Testing Gets",40)
LOCAL nNum := 0
LOCAL dDat := Date()
Set century On
Set Date Ansi
Set Date format "mm/dd/yyyy"
SET _3DLOOK ON
DEFINE DIALOG oDlg TITLE "TGet from " + FWDESCRIPTION
@ 1, 2 SAY "Text..:" OF oDlg
@ 1, 6 GET oGet VAR cCad OF oDlg SIZE 60, 10 COLOR "W/G" PICTURE "@K"
@ 1.8, 2 SAY "Number:" OF oDlg
@ 2, 6 GET oGet1 VAR nNum OF oDlg SIZE 60, 10 PICTURE "9999999.99"
@ 2.6, 2 SAY "Date:" OF oDlg
@ 3, 6 GET oGet2 VAR dDat PICTURE "@E" OF oDlg SIZE 60, 10 // "@D"
@ 3, 7 BUTTON "&Ok" OF oDlg SIZE 30, 12 ACTION .T. //oDlg:End()
@ 3, 16 BUTTON "&Cancel" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL
// TGet():SetColorFocus( nRGB( 200, 120, 120 ) )
ACTIVATE DIALOG oDlg CENTERED VALID ( HideInputPanel(), .T. ) ON INIT ControlsDlg( oDlg )
return nil
//------------------------------------------------------------------------//
FUNCTION ShowInputPanel( oDlg )
Local hWndInputPanel
//hWndInputPanel:= FindWindow("IPTip_Main_Window")
//if Empty( hWndInputPanel )
ShellExecute( oDlg:hWnd, "open", "C:\\Program Files\\Common Files\\microsoft shared\\ink\\tabtip.exe")
//endif
RETURN NIL
FUNCTION HideInputPanel()
Local hWndInputPanel
hWndInputPanel := FindWindow("IPTip_Main_Window")
if !Empty( hWndInputPanel )
PostMessage( hWndInputPanel, WM_SYSCOMMAND, SC_CLOSE, 0 )
endif
Return nil
Function ControlsDlg( oDlg )
Local x
Local nLen := Len( oDlg:aControls )
Local aObj := { "TGET" }
For x = 1 to nLen
if !Empty( Ascan( aObj, Upper( oDlg:aControls[x]:ClassName() ) ) )
WITH OBJECT oDlg:aControls[x]
:bGotFocus := { | o | ShowInputPanel( oDlg ) }
:bLostFocus := { | o | HideInputPanel() }
ENDWITH
endif
Next x
Return nil
#include "common.ch"
#include "ot4xb.ch"
#define SW_NORMAL 1
* --------------------------------------- *
PROCEDURE Main()
SHELLOPENFILE( "C:\WINDOWS\system32\" , "osk.exe")
RETURN
FUNCTION SHELLOPENFILE( cPath, cFile, cPara )
LOCAL lSuccess
LOCAL bSaveError
LOCAL oError
LOCAL Retvar := .F.
DEFAULT cPath TO ""
DEFAULT cFILE TO ""
DEFAULT cPara TO ""
IF Is64Bit()
@ Kernel32:Wow64EnableWow64FsRedirection( .F. ) // disable bevor API Call
ENDIF
bSaveError := ERRORBLOCK( { | e | BREAK( e ) } )
BEGIN SEQUENCE
lSuccess := @SHELL32:ShellExecuteA( APPDESKTOP() :GetHWND(), ;
"open", ;
cPath + cFile, ;
cPara, ;
CURDIR(), ;
SW_NORMAL )
DO CASE
CASE lSuccess > 32 // OK
Retvar := .T.
OTHERWISE
BREAK
ENDCASE
RECOVER USING oError
ERRORBLOCK( bSaveError )
IF !EMPTY(oError)
MSGBOX( DosErrorMessage( oError:osCode ), "Error osCode " + LTRIM( STR( oError:osCode ) ) )
ELSE
MSGBOX( "Error open "+ cPath + cFile, IF(Is64Bit(),"64 Bit", "32 Bit"))
ENDIF
END SEQUENCE
ERRORBLOCK( bSaveError )
IF Is64Bit()
@ Kernel32:Wow64EnableWow64FsRedirection( .T. ) // enable again
ENDIF
RETURN Retvar
FUNCTION Is64Bit()
RETURN IF( FILE( "C:\WINDOWS\SysWOW64\Format.COM" ), .T., .F. )
i have a older 310 MiixSilvio.Falconi wrote:I have Tablet Lenovo Miix320 with windows 10 Pro 64 bit
Silvio.Falconi wrote:I can't waste time to see if the function doesn't work, I prefer to find other solutions
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: russimicro and 48 guests