Windows - mudando formatos data e valor do Windows

Top  Previous  Next

// para mudar de forma definitiva

 

uses Registry;

 

procedure SetaData4Digitos;

var

  Reg: TRegistry;

Begin

  Reg         := TRegistry.Create;

  Reg.RootKey := HKEY_CURRENT_USER;

  Reg.OpenKey('Control Panel\International', True);

  Reg.WriteString('sShortDate''dd/MM/yyyy');

  FreeAndNil(Reg);

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  SetaData4Digitos;

end;

 

// para mudar somente no programa:

// Normalmente o Delphi busca os formatos de data/hora, moeda e formato 

// numérico da Configuração Internacional do Painel de Controle. 

// Isto pode levar a erros quando avaliando datas, números ou listas. 

// Para evitar estes erros, você pode mudar as constantes definidas 

// no Delphi, como DecimalSeparator, ShortFormatDate e outros desta maneira: 

 

 

DecimalSeparator :='.'

ShortFormatDate :='mm/dd/yy'

 

// Isto terá precedência sobre a configuração padrão. 

// Para uma lista completa das variáveis, procure em Currency Formating 

// Variables na ajuda do Delphi.