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.

在程式初始化時呼叫GetDateTimeFormat，將取出的設定儲存起來，然後用SetDateTimeFormat設定需要的格式。在程式退出時再次呼叫SetDateTimeFormat將儲存的值寫回去。