LceMeaning专用函数集《Lcemeaning》

最新推荐文章于 2023-10-07 18:09:49 发布

weixin_30739595

最新推荐文章于 2023-10-07 18:09:49 发布

阅读量74

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/LceMeaning/p/3368132.html

本文介绍了一个Delphi函数库，用于设置和获取系统的日期时间格式。通过使用此库，可以轻松地更改短日期、长日期及时间的显示格式，并确保应用程序能够立即应用这些更改。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

{*******************************************************}
{                                                       }
{       Lcemeaning专用函数库集                                }
{                                                       }
{                                                       }
{   作者:lcemeaning                                     }
{   Email:574545301@qq.com                              }
{                                                       }
{*******************************************************}


unit FunctionLibrary;

interface

uses
  Windows, Messages, SysUtils, Classes;


// 函数/过程输出
  procedure GetDateTimeFormat();//得到日期时间格式
  procedure SetDateTimeFormat();//设置日期时间格式

//全局变量
var
  GPrevShortDate,GPrevLongDate,GPrevTimeFormat:string;

implementation


//得到日期时间格式
procedure GetDateTimeFormat();
const i = 100;
var
  buf:pchar;
begin
  getmem(buf,100);
  //i:=100; //i必须在调用前赋值为buf缓冲区的长度。如果设为0或负值，将取不到设置的值
  GetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SSHORTDATE,buf,i); //取当前用户设置，短日期格式。
  GPrevShortDate:=string(buf);
  GetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SLONGDATE,buf,i); //取长日期格式
  GPrevLongDate:=string(buf);
  GetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_STIMEFORMAT,buf,i); //取时间格式
  GPrevTimeFormat:=string(buf);
  FreeMem(buf);
end;

//设置日期时间格式
procedure SetDateTimeFormat();
var
  p:DWORD;
begin
  SetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SSHORTDATE,pchar('yyyy/MM/dd')); //设置短日期格式
  SetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SLONGDATE,pchar('yyyy''年''M''月''d''日''')); //设置长日期格式为 yyyy'年'M'月'd'日'，“年月日”字符必须用单引号括

起来。Delphi字符串里必须用两个单引号。
  SetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_STIMEFORMAT,pchar('HH:mm:ss')); //设置时间格式，24小时制
  SendMessageTimeOut(HWND_BROADCAST,WM_SETTINGCHANGE,0,0,SMTO_ABORTIFHUNG,10,p);//设置完成后必须调用，通知其他程序格式已经更改，否则即使是程序自身也不能使用

新设置的格式
end;


end.//结束