DELPHI中关于系统日期格式及程序处理

delphi调用strtodatetime时遇到日期格式错误，但是检查了字符串后发现为'2000-01-01'并没有问题。

 

同事提示我去看一下控制面板里的 区域和语言选项　里，　发现果然短日期分隔符为 / ,则日期解析的格式变成 2000/01/01,显然之前的字符串会出现问题.

 

于是查找资料,发现有关于此问题的windows API:

 

int GetLocaleInfo(
    LCID Locale, // locale identifier ，设置信息的范围，是系统级，还是当前用户
    LCTYPE LCType, // type of information，设置信息的类型
    LPTSTR lpLCData, // address of buffer for information，设置成的值，必须用 pchar的格式传进去
    int cchData  // size of buffer
   );

BOOL SetLocaleInfo(
    LCID Locale, // locale identifier,同上
    LCTYPE LCType, // type of information to set
    LPCTSTR lpLCData  // pointer to information to set
   );

 

两个函数的参数很类似，其中 Locale可以取两个值：LOCALE_SYSTEM_DEFAULT,表示要操作的是系统默认的设置; LOCALE_USER_DEFAULT，表示要操作的是当前用户的设置。还可以取其他值，用于具体修改某种语言区域的设置。一般取 LOCALE_USER_DEFAULT。
LCType,表示要操作信息的类型，也就是要操作的是哪一