ANSIコードページの識別子を取得          <TOP>


GetACP システムで現在有効になっている ANSI コードページ(ANSI CodePage)の識別子を取得
 

参考

ANSI コードページの識別子は以下の通り。
識別子 意味                            
874    タイ語
932    日本語
936    中国語簡体字(中国、シンガポール)
949    韓国語
950    中国語繁体字(台湾、香港)
1200   Unicode(ISO 10646 の BMP)
1250   Windows 3.1 東欧
1251   Windows 3.1 キリル文字
1252   Windows 3.1 ラテン I(米国、西欧)
1253   Windows 3.1 ギリシャ語
1254   Windows 3.1 トルコ語
1255   ヘブライ語
1256   アラビア語
1257   バルト語族
 

'================================================================
'= ANSIコードページの識別子を取得
'=    (GetACP.bas)
'================================================================
#include "Windows.bi"

' システムで現在有効になっている ANSI コードページの識別子を取得
Declare Function Api_GetACP& Lib "kernel32" Alias "GetACP" ()

Var Shared Text1 As Object
Var Shared Text2 As Object
Var Shared Button1 As Object

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

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

    Ret = Api_GetACP()

    Text2.SetWindowText Str$(Ret)
End Sub

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