如何在Delphi中使用命令修改windows中控制面板中的区域设置中的日期shortdate的格式？请给代码，在线等侍，立即给分！

Question

注册表[HKEY_CURRENT_USER\Control Panel\International]主键下，右边sShortDate键值（字符串型），可改为yyyy-M-D, yy-M-D, yyyy-MM-DD, yy-MM-DDDelphi中用TRegistry类修改注册表，就不用说了吧

Answer 1

SetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SSHORTDATE,'yyyy-MM-dd');

Answer 2

interface
uses Registry;var
 Reg:TRegistry;
begin
 Reg:=TRegistry.Create;
  try
   Reg.RootKey :=HKEY_CURRENT_USER;
   Reg.OpenKey('Control Panel\International',false);
   Reg.Writestring('sShortDate','yyyy-M-D');
  finally
   Reg.CloseKey;
   Reg.Free;
  end;
end;