Bom dia!
procedure AlteraFormatoData(Const Formato,Separador:String);
var Reg: TRegistry;
begin
Reg := TRegistry.Create;
//HKEY_CURRENT_USER\Control Panel\International
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Control Panel\International', True) then
begin
Reg.WriteString('sShortDate',Formato);
Reg.WriteString('sDate',Separador);
Reg.CloseKey;
end;
finally
Reg.Free;
inherited;
end;
end;
Utilise assim:
AlteraFormatoData('dd/MM/yyyy','/'); // MM em maiúsculo mesmo
Boa sorte.
Ulisses
----- Original Message -----
From: "voodoorv" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Thursday, June 16, 2005 7:48 AM
Subject: [delphi-br] Alterar formato de Data ?
Alguém sabe como mudo o formato de data do Windows para dd/MM/aa para
dd/MM/aaaa, como se eu alterasse dentro do painel de controle, não
apenas no shortdateformat ?
Obrigado
Ricardo
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
