I would like to use external program and close after :end() as following code but it works for 32bits. I need to use it with my old pragram in 16bits.
How to change this code to 16bits (Clip52/FW25).
link to download FreeVK.EXE
http://www.freevirtualkeyboard.com/
#include 'fivewin.ch'
*--------------------*
Procedure main
local oDlg, oGet[2]
local cVar1, cVar2
local hCalc := CreateProcess( "FreeVK" )
cVar1 := space(100)
cVar2 := space(100)
DEFINE DIALOG oDlg FROM 0, 0 TO 200, 400 TITLE 'Test Virtual Keyboard' PIXEL
@ 10, 10 SAY 'Test Get ' OF oDlg PIXEL SIZE 30,12
@ 8, 45 GET oGet[1] VAR cVar1 OF oDlg SIZE 60,12 PIXEL
@ 30, 10 SAY 'Test Get ' OF oDlg PIXEL SIZE 30,12
@ 28, 45 GET oGet[2] VAR cVar2 OF oDlg SIZE 60,12 PIXEL
ACTIVATE DIALOG oDlg CENTERED VALID (TerminateProcess( hCalc ), .T.)
return
#pragma BEGINDUMP
#include <windows.h>
#include <hbapi.h>
HB_FUNC( CREATEPROCESS )
{
STARTUPINFO StartupInfo;
PROCESS_INFORMATION ProcessInfo;
DWORD dwExitCode;
memset( ( char * ) &StartupInfo, 0, sizeof( STARTUPINFO ) );
StartupInfo.cb = sizeof( StartupInfo );
StartupInfo.dwFlags = STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow = ( hb_pcount() > 1 ) ? hb_parni( 2 ) : SW_SHOWNA;
CreateProcess( 0, ( char * ) hb_parc( 1 ), 0, 0, FALSE,
CREATE_NEW_CONSOLE | NORMAL_PRIORITY_CLASS,
0, 0, &StartupInfo, &ProcessInfo );
hb_retnl( ( LONG ) ProcessInfo.hProcess );
}
HB_FUNC( TERMINATEPROCESS )
{
hb_retl( TerminateProcess( ( HANDLE ) hb_parnl( 1 ), hb_parnl( 2 ) ) );
}
#pragma ENDDUMP
