ユーザーの既定言語識別子を取得          <TOP>

GetUserDefaultLangID ユーザーの既定言語識別子を取得

　

ユーザーの既定言語識別子であるから、下図のように英語（米国）に変更すると識別子は1033（米国）になる。

 

 

 

参考

システムの既定言語識別子を取得

　

'================================================================
'= ユーザーの既定言語識別子を取得
'=    (GetUserDefaultLangID.bas)
'================================================================
#include "Windows.bi"

' ユーザーの既定言語識別子を取得
Declare Function Api_GetUserDefaultLangID% Lib "Kernel32" Alias "GetUserDefaultLangID" ()

Var Shared Text1 As Object
Var Shared Button1 As Object

Text1.Attach GetDlgItem("Text1") : Text1.SetFontSize 14
Button1.Attach GetDlgItem("Button1") : Button1.SetFontSize 14

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

    Ret = Api_GetUserDefaultLangID()

    Text1.SetWindowtext "言語識別子：" & Str$(Ret)
End Sub

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