ウィンドウがUnicodeを使用しているか判断          <TOP>


IsWindowUnicode ウィンドウがUnicodeを使用しているかどうかを判断します。

 

 

'================================================================
'= ウィンドウがUnicodeを使用しているか判断
'=    (IsWindowUnicode.bas)
'================================================================
#include "Windows.bi"

' ウィンドウがUnicodeを使用しているか判断
Declare Function Api_IsWindowUnicode& Lib "user32" Alias "IsWindowUnicode" (ByVal hWnd&)

Var Shared Edit1 As Object
Edit1.Attach GetDlgItem("Edit1") : Edit1.SetFontSize 14

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var Ret As Long

    Ret = Api_IsWindowUnicode(Edit1.GethWnd)
    If Ret <> 0 Then
        Edit1.SetWindowText "Unicodeウィンドウです"
    Else
        Edit1.SetWindowText "Unicodeウィンドウではありません"
    End If
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End