精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>时间和日期>>设置日期格式为 yyyy-mm-dd

主题:设置日期格式为 yyyy-mm-dd
发信人: szlbz()
整理人: soaringbird(2001-06-04 07:49:37), 站内信件
procedure SetWindowDate; //设置日期格式为 yyyy-mm-dd

var
  registerTemp: TRegistry;
begin
  registerTemp := TRegistry.Create; //准备使用注册表
  with registerTemp do
  begin
    RootKey := HKEY_Current_user; //存放在此根下
    if OpenKey('control panel\international', True) then Writestring('sshortdate', 'yyyy-MM-dd');
  end;
  registertemp.Free;
end;

[关闭][返回]