如何将系统时间默认设为"年-月-日"格式???谢啦!!!!急死了!散分啦

Question

如何将系统时间默认设为"年-月-日"格式???谢啦!!!!急死了

Answer 1

你要在代碼中操作這個字符串嗎？
那用formatdatetime('yyyy-mm-dd',date)
就OK了
如果你是想把操作系統的日期格式改掉，可以在控制面板裡進行設置

Answer 2

楼主是这个意思吗？？procedure TForm1.Button1Click(Sender: TObject);
begin
 showmessage(formatdatetime('yyyy-MM-dd',now()));
end;

Answer 3

不是的，意思是，如何让系统时间的格式黙认为'yyyy-MM-dd'格式

Answer 4

开始-->运行 
regedit
回车
HKEY_CURRENT_USER\Control Panel\International\
sLongDate=yyyy'-'M'-'d'-'

Answer 5

以下是我自已写的代码...
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure SetSysDateFormat(s: string);
    function GetsysShortDateFormat: string;
    function GetsysLongDateFormat: string;
    function GetsysTimeFormat: string;
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var
str: string;
begin
  str := 'yyyy-MM-dd';
  if SetLocaleInfoa(LOCALE_SYSTEM_DEFAULT, LOCALE_SLONGDATE, PChar(str)) then
  begin
  showmessage('更改长日期格式成功');
  end;
  Edit1.text :=GetsysLongDateFormat;
end;
//设定系日期格式；
function TForm1.GetsysShortDateFormat: string;
var
sgs:string;
begin
  setlength(sgs,12);
  GetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SSHORTDATE ,PChar(sgs),12);
  result:=string(pchar(sgs));
end;procedure TForm1.SetSysDateFormat(s: string);
begin
  SetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SSHORTDATE,PChar(s));
end;procedure TForm1.Button2Click(Sender: TObject);
var
str: string;
begin
  str := 'yyyy-MM-dd';
  if SetLocaleInfoa(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE, PChar(str)) then
  begin
  showmessage('更改短日期格式成功');
  end;
  Edit2.text :=GetsysShortDateFormat;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  SysLocale.PriLangID:=LANG_CHINESE;
  DateSeparator:='-';
  LongDateFormat:='yyyy-MM-dd';
  ShortDateFormat:='yyyy-MM-dd';
  TimeSeparator:=':';
  LongTimeFormat:='HH:mm:ss';
  TimeAMString:='上午';
  TimePMString:='下午';
  Edit2.text :=GetsysShortDateFormat;
  Edit1.text :=GetsysLongDateFormat;
  Edit3.text :=GetsysTimeFormat;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
  showmessage(timetostr(now));
end;procedure TForm1.Button4Click(Sender: TObject);
var
str: string;
begin
  str := 'HH:mm:ss';
  if SetLocaleInfoa(LOCALE_SYSTEM_DEFAULT, LOCALE_STIMEFORMAT, PChar(str)) then
  begin
  showmessage('更改时间格式成功');
  end;
  Edit3.text :=GetsysTimeFormat;
end;function TForm1.GetsysLongDateFormat: string;
var
sgs:string;
begin
  setlength(sgs,12);
  GetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SLONGDATE ,PChar(sgs),12);
  result:=string(pchar(sgs));
end;function TForm1.GetsysTimeFormat: string;
var
sgs:string;
begin
  setlength(sgs,12);
  GetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_STIMEFORMAT ,PChar(sgs),12);
  result:=string(pchar(sgs));
end;procedure TForm1.Button5Click(Sender: TObject);
begin
  showmessage(datetostr(now));
end;end.

Answer 6

通过修改注册表可以实现
代码下载
http://www.2ccc.com/article.asp?articleid=1802

Answer 7

uses shellapiSetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_STIMEFORMAT,PChar('HH:mm:ss'));
SetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SSHORTDATE,PChar('yyyy-MM-dd'));

Answer 8

pchar后是参数YYYY-MM-DD可以按自己需要调动

Answer 9

我原来是像这样弄的,在程序的一开始加一句:
  ShortDateFormat:='yyyy-mm-dd';
你试试看吧, 祝好运