Configurações Regionais do painel de controle

Delphi

11/09/2006

tem uma maneira de eu ver como o windows está configurado nas Configurações Regionais do painel de controle???

tipo..verificar como é feita a Data e Hora...a moeda..essas coisas???


se alguem puder me dar uma luz..agradeço...


Alansvieceli

Alansvieceli

Curtidas 0

Respostas

Alansvieceli

Alansvieceli

11/09/2006

só pra postar o resultado..eu achei...
foi mais facil do q imaginei....


procedure TForm2.BitBtn1Click(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;



abraço a todos...


GOSTEI 0
POSTAR