_TITLE and extended ASCII characters.

Code: (Select All)

DECLARE DYNAMIC LIBRARY "user32"

    FUNCTION SetWindowTextW (BYVAL Handle AS _OFFSET, title$)

END DECLARE



'_TITLE CHR$(240) + "Foo"



i% = _MAPUNICODE(240)

t$ = MKI$(i%)

PRINT t$ 'this is chr$(34) and "a", but they need to be reversed to do anything.  Endianness issue, I guess?

SLEEP 'so we have time to make certain that the _WINDOWHANDLE is properly assigned to this window





title$ = "a" + CHR$(34) + "F" + CHR$(0) + "o" + CHR$(0) + "o" + CHR$(0) + CHR$(0)

result = SetWindowTextW(_WINDOWHANDLE, title$) 'IF the line with _TITLE is uncommented above, this does nothing.

SLEEP

Code: (Select All)

DECLARE DYNAMIC LIBRARY "user32"

    FUNCTION SetWindowTextW (BYVAL Handle AS _OFFSET, title$)

END DECLARE

_CONTROLCHR OFF

DO

    j = j + 1

    i% = _MAPUNICODE(126 + j)



    t$ = MKI$(i%)

    PRINT 126 + j, i%, MID$(t$, 1, 1), t$



    _DELAY .1



    title$ = CHR$(64 + j) + CHR$(34) + "F" + CHR$(0) + "o" + CHR$(0) + "o"

    result = SetWindowTextW(_WINDOWHANDLE, title$)

    SLEEP

LOOP

Code: (Select All)

$If UNICODETOANSI = UNDEFINED Then

    $Let UNICODETOANSI = DEFINED

    Declare CustomType Library

        Function WideCharToMultiByte& (ByVal CodePage As _Unsigned Long, Byval dwFlags As Long, Byval lpWideCharStr As _Offset, Byval cchWideChar As Integer, Byval lpMultiByteStr As _Offset, Byval cbMultiByte As Integer, Byval lpDefaultChar As _Offset, Byval lpUsedDefaultChar As _Offset)

        Function MultiByteToWideChar& (ByVal CodePage As _Unsigned Long, Byval dwFlags As Long, Byval lpMultiByteStr As _Offset, Byval cbMultiByte As Integer, Byval lpWideCharStr As _Offset, Byval cchWideChar As Integer)

    End Declare



    Function UnicodeToANSI$ (buffer As String)

        Dim As String ansibuffer: ansibuffer = Space$(Len(buffer))

        Dim As Long a: a = WideCharToMultiByte(437, 0, _Offset(buffer), Len(buffer), _Offset(ansibuffer), Len(ansibuffer), 0, 0)

        UnicodeToANSI = Mid$(ansibuffer, 1, InStr(ansibuffer, Chr$(0)) - 1)

    End Function



    Sub UnicodeToANSI (buffer As String, __dest As String)

        Dim As String ansibuffer: ansibuffer = Space$(Len(buffer))

        Dim As Long a: a = WideCharToMultiByte(437, 0, _Offset(buffer), Len(buffer), _Offset(ansibuffer), Len(ansibuffer), 0, 0)

        __dest = Mid$(ansibuffer, 1, InStr(ansibuffer, Chr$(0)) - 1)

    End Sub



    Function ANSIToUnicode$ (buffer As String)

        Dim As String unicodebuffer: unicodebuffer = Space$(Len(buffer) * 2)

        Dim As Long a: a = MultiByteToWideChar(65001, 0, _Offset(buffer), Len(buffer), _Offset(unicodebuffer), Len(unicodebuffer))

        ANSIToUnicode = unicodebuffer

    End Function



    Sub ANSIToUnicode (buffer As String, __dest As String)

        Dim As String unicodebuffer: unicodebuffer = Space$(Len(buffer) * 2)

        Dim As Long a: a = MultiByteToWideChar(65001, 0, _Offset(buffer), Len(buffer), _Offset(unicodebuffer), Len(unicodebuffer))

        __dest = unicodebuffer

    End Sub

$End If