- Code: Select all Expand view
- #define DC_CALL_STD 0x20
FUNCTION MAIN()
LOCAL cString := "Hello World"
LOCAL nWideLen := 2 * LEN( cString )
LOCAL cWideChar := REPLICATE( CHR( 0 ), nWideLen )
LOCAL pCallTemplate := DLLPREPARECALL( "kernel32.dll", DC_CALL_STD, "MultiByteToWideChar" )
LOCAL nRet := DLLEXECUTECALL( pCallTemplate, 0, 0, cString, -1, @cWideChar, nWideLen )
? nRet
INKEY( 0 )
RETURN NIL