IsWindowUnicode

機能

指定のウィンドウがUnicodeウィンドウかどうか調べる

Declare Function IsWindowUnicode Lib "user32.dll" _

    (ByVal hWnd As Long) As Long

Declare Function IsWindowUnicode Lib "user32.dll" _

    (ByVal hWnd As Integer) As Integer

BOOL IsWindowUnicode(
HWND hWnd
);
引数
hWnd

ウィンドウのハンドル

戻り値

Unicodeウィンドウのとき	0以外

そうでないとき  0

サンプル

ダウンロード(IsWindowUnicode.lzh 1.09KB)

'指定のウィンドウがUnicodeウィンドウかどうか調べる
Private Declare Function IsWindowUnicode Lib "user32.dll" (ByVal hWnd As Long) As Long


Private Sub Command1_Click()
Dim rc As Long

rc = IsWindowUnicode(Me.Text1.hWnd)
If rc <> 0 Then
    Me.Text1.Text = "Unicodeウィンドウである"
Else
    Me.Text1.Text = "Unicodeウィンドウではない"
End If
End Sub