Delphi获得与设置系统时间格式《转》

Posted 猎人行动

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Delphi获得与设置系统时间格式《转》相关的知识,希望对你有一定的参考价值。

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.

以上是关于Delphi获得与设置系统时间格式《转》的主要内容,如果未能解决你的问题,请参考以下文章

Delphi 设置时间格式

Delphi 修改系统时间格式为:'yyyy-MM-dd HH:mm:ss', 'yyyy''年''M''月 ''

Delphi 表格 (DFM) 转文本

转:学习笔记: Delphi之线程类TThread

DELPHI实现关机,兼容全部WINDOWS系统 转

不修改系统日期和时间格式,解决Delphi报错提示 '****-**-**'is not a valid date and time