Veja aqui como alterar as configurações regionais do sistema mas somente dentro do nosso aplicativo através de alteração de variáveis públicas.

Alguém já teve ódio quando desenvolve um sistema, tudo fica funcionando bem legal na sua máquina. Mas quando leva pra máquina do cliente vê que a data tá invertida nos grids (no formato MM/DD/AAAA por exemplo) ou aparece ponto no lugar de vígula nos valores (1,000.00 ao invés de 1.000,00). Daí o cliente reclama justamente disto, sem saber que o problema, na verdade, está nas configurações do próprio windows (Configurações Regionais). A solução para este tipo de problema é bem simples. Existe um conjunto de variáveis que é carregada junto com o sistema e que contém todas estas informações. Estas variáveis estão dentro da Unit SYSUTILS. Para ver como isto funciona, vamos fazer um pequeno exemplo que nos mostra os valores destas variáveis. Abra um novo projeto, no formulário coloque um componente TMemo. Sete as seguintes propriedades: Align = alClient ReadOnly = True ScrollBars = ssBoth WordWrap = False No evento OnShow do formulário, faça o seguinte: procedure TForm1.FormShow(Sender: TObject); var   Ind: Integer;   Txt: String; begin   Memo1.Lines.Clear;   Memo1.Lines.Add('CurrencyString...: '+CurrencyString);   Memo1.Lines.Add('ThousandSeparator: '+ThousandSeparator);   Memo1.Lines.Add('DecimalSeparator.: '+DecimalSeparator);   Memo1.Lines.Add('CurrencyDecimals.: '+IntToStr(CurrencyDecimals));   Memo1.Lines.Add('');   Memo1.Lines.Add('DateSeparator..: '+DateSeparator);   Memo1.Lines.Add('ShortDateFormat: '+ShortDateFormat+                   ' ('+FormatDateTime(ShortDateFormat, Date)+')');   Memo1.Lines.Add('LongDateFormat.: '+LongDateFormat+                   ' ('+FormatDateTime(LongDateFormat, Date)+')');   Memo1.Lines.Add('TimeSeparator..: '+TimeSeparator);   Memo1.Lines.Add('TimeAMString...: '+TimeAMString);   Memo1.Lines.Add('TimePMString...: '+TimePMString);   Memo1.Lines.Add('ShortTimeFormat: '+ShortTimeFormat);   Memo1.Lines.Add('LongTimeFormat.: '+LongTimeFormat);   Memo1.Lines.Add('');   Txt := 'ShortMonthNames: ';   for Ind := 1 to 12 do begin       Memo1.Lines.Add(Txt+ShortMonthNames[Ind]);       Txt := StringOfChar(' ', Length(Txt));   end;   Memo1.Lines.Add('');   Txt := 'LongMonthNames.: ';   for Ind := 1 to 12 do begin       Memo1.Lines.Add(Txt+LongMonthNames[Ind]);       Txt := StringOfChar(' ', Length(Txt));   end;   Memo1.Lines.Add('');   Txt := 'ShortDayNames: ';   for Ind := 1 to 7 do begin       Memo1.Lines.Add(Txt+ShortDayNames[Ind]);       Txt := StringOfChar(' ', Length(Txt));   end;   Memo1.Lines.Add('');   Txt := 'LongDayNames.: ';   for Ind := 1 to 7 do begin       Memo1.Lines.Add(Txt+LongDayNames[Ind]);       Txt := StringOfChar(' ', Length(Txt));   end;   Memo1.SetFocus; end; Pronto. Execute o projeto e vai ver o conteúdo das variáveis. O interessante é que podemos alterá-las e a partir de então o sistema passa a se comportar como se tivéssemos alterado o windows. É útil colocar no evento OnCreate do form principal colocar: ThousandSeparator := '.'; DecimalSeparator := ','; ShortDateFormat := 'dd/MM/yyyy'; Assim, temos certeza que o sistema irá funcionar do jeito que está funcionando em nosso ambiente de desenvolvimento. Abraços, Marcelo Torres

Quebra-Linha

Colaborador..: Marcelo Torres
Categoria(s).: Delphi;
Versão.......: 1.00
Data.........: 14/04/2005 08:57:02
Visualizado..: 10305 vezes
Fonte........: Marcelo Torres