如何获取系统的语言（编码）就像IE 获取的编码一样？

[yjbnew]

thanks

[baseyueliang]

研究下变量SysUtils.SysLocale

[bdmh]

可以去访问注册表
[HKEY_CLASSES_ROOT\MIME\Database\Codepage]
下的每个节点的Description的值

[yjbnew]

谢谢，楼上。
不过好像注册表中的CODEPAGE比IE中的编码来的多很多啊？
比如日文，好像有5种。晕。

[yjbnew]

我已经知道怎么弄了。thanks！

[yjbnew]

晕，好像还是有点不对啊。

[僵哥]

function GetCPInfoEx(CodePage: UINT;dwFlags: LongWord; var lpCPInfo: TCPInfoEx): BOOL; stdcall; external kernel32 name 'GetCPInfoExA';

function EnumLocalesProc(
  lpLocaleString: PAnsiChar
): Boolean;stdcall;
var
  CodePage: LongWord;

  LocaleName: array[0..MAX_PATH] of char;
  str: String;
  lcp:TCPINFOEX;
begin
  str := strpas(lpLocaleString);
  CodePage := StrToInt( str);
  GetCPInfoEx(CodePage,0,lcp);
  //WriteLogThreadsafe('c:\Locals.txt',String(lcp.CodePageName)+#13#10);
  ShowMessage(lcp.CodePageName);
  Result := true;

end;

EnumSystemCodePages(@EnumLocalesProc,CP_SUPPORTED);

[ahjoe]

用 GetOEMCP() 获取当前系统支持的非Unicode程序的语种。

[ahjoe]

用 GetOEMCP() 获取当前系统支持的非Unicode程序的字符编码。

[yjbnew]

报错：Undeclared identifier: 'TCPInfoEx'

[僵哥]

[Quote=引用 9 楼 yjbnew 的回复:]
报错：Undeclared identifier: 'TCPInfoEx'
[/Quote]
抱歉,忘了

Type
  _cpinfoexA = record
    MaxCharSize: LongWord;
    DefaultChar: Array[0..MAX_DEFAULTCHAR-1] of Byte;
    LeadByte: Array[0..MAX_LEADBYTES-1] of Byte;
    UnicodeDefaultChar: WideChar;
    CodePage: LongWord;  
    CodePageName: Array[0..MAX_PATH-1] of AnsiChar;
  end;
  CPINFOEXA = _cpinfoexA;
  LPCPINFOEXA = ^CPINFOEXA;

  _cpinfoexW = record
    MaxCharSize: LongWord;
    DefaultChar: Array[0..MAX_DEFAULTCHAR-1] of Byte;
    LeadByte: Array[0..MAX_LEADBYTES-1] of Byte;
    UnicodeDefaultChar: WideChar;
    CodePage: LongWord;  
    CodePageName: Array[0..MAX_PATH-1] of WideChar;
  end;
  CPINFOEXW = _cpinfoexW;
  LPCPINFOEXW = ^CPINFOEXW;

  CPINFOEX = CPINFOEXA;
  LPCPINFOEX = ^CPINFOEX;

[yjbnew]

谢谢，Delphi太强了。明天结贴。来者犹分。

[嗷嗷叫的老马]

路过......................帮顶

[yjbnew]

EnumLocalesProc 这个怎么调用？能否详细解释一下，谢谢。

[僵哥]

[Quote=引用 12 楼 yjbnew 的回复:]
EnumLocalesProc 这个怎么调用？能否详细解释一下，谢谢。
[/Quote]
EnumSystemCodePages(@EnumLocalesProc,CP_SUPPORTED);

[火星牛]

当前设定的语言，windows.GetACP