[Delphi] 设置线程区域语言防止乱码

2017-05-29 19:58:00来源:CSDN作者:Hmillet人点击



uses
  Windows;

在工程文件中添加一句代码,如下:

复制代码
  Application.Initialize;  //添加以下一句解决外文系统乱码问题  SetThreadLocale(DWORD(Word(SORT_DEFAULT) shl 16) or      DWORD(Word(SUBLANG_CHINESE_SIMPLIFIED) shl 10) or      DWORD(Word(LANG_CHINESE)));    Application.CreateForm(TForm1, Form1);  Application.Run;

最新文章

123

最新摄影

闪念基因

微信扫一扫

第七城市微信公众平台