unit Unit1;
interface
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type TForm1 = class(TForm) btn1: TButton; btn2: TButton; Label1: TLabel; Label2: TLabel; Label3: TLabel; procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1; GPrevShortDate,GPrevLongDate,GPrevTimeFormat:string; implementation
{$R *.dfm}
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;
procedure TForm1.btn1Click(Sender: TObject); begin SetDateTimeFormat; ShowMessage(‘修改成功!‘); end;
procedure TForm1.btn2Click(Sender: TObject); begin GetDateTimeFormat(); label1.Caption := GPrevShortDate; Label2.Caption := GPrevLongDate; Label3.Caption := GPrevTimeFormat; ShowMessage(‘已得到原格式!‘); end;
end.