How to activate the Windows Virtual Keyboard from eXpress

[Auge_Ohr]

I will create a new OSK class and a sample and post it in this forum.

how to modify for German QWERTZ
where you get Bitmap from

[Tom]

These are DCXBPPUSHBUTTONS, Jimmy. No bitmaps. Just ownerdrawing.

[Auge_Ohr]

hi Tom,

i just saw those *.BMP in \exp20\Samples\Touchscr\ but no German Umlaute ...

are there any Ownerdraw Keyboard Sample

[Tom]

@Jimmy: Those bitmaps are for the older keyboard samples. TOUCHSCR3.PRG works with ownerdrawing.

[digitsoft]

Thanks to everyone for helping me

[digitsoft]

Hello I have not been able to load osk.exe as they have put in the examples, it tells me that it does not include it

[digitsoft]

Hello Auge_Ohr
This example does not work

try

Code: Select all

   SHELLOPENFILE( "C:\WINDOWS\system32\", "osk.exe" )

FUNCTION SHELLOPENFILE( cPath, cFILE, cPara )

   lSuccess := DllCall( "SHELL32.DLL"  , DLL_STDCALL, ;
               "ShellExecuteA", AppDesktop():GetHWND(), "open", cPath+cFile,;
               cPara, CurDir(), SW_NORMAL )

[patito]

Hi Nolber

Use trunprocess, it's much safer, it's in ot4xb.dll
Then he tells me if it's effective.

Best Regard

PROCEDURE main( LcP1,LcP2,LcP3,LcP4,LcP5,LcP6)
local oProcess := TRunProcess():New()

oProcess:cAppName := NIL
oProcess:cParams := NIL
oProcess:cCmdLine := "java -jar firmafedian.jar " + alltrim(LcP2) + " " +;
alltrim(LcP3)+ " " + alltrim(LcP4)+ " " + alltrim(LcP5) + " " + alltrim(LcP6)
oProcess:lUseShowWindow := .T.
oProcess:wShowWindow := oProcess:swHide

if oProcess:Start()
while !oProcess:Wait( 250 ) // Wait 0,25 seconds
enddo
oProcess:Release()
endif

return .T.

[rdonnay]

Here is an OSK sample program.

[Auge_Ohr]

This example does not work

are you running under 64 Bit ?