Cambiar Configuracion Regional desde Delphi

[ingabraham]

Empezado por look

Código Delphi [-]
WinExec(Pchar('rundll32.exe shell32,Control_RunDLL intl.cpl,,/f:"'+ExtractFilePath(Application.ExeName)+'regopts.txt'+'"'), SW_HIDE);





en el txt:
[RegionalSettings]
UserLocale =0480a
UserLocale_DefaultUser =0480a

el 0480a es el codigo que quiero cambiar, en este caso es para el de mi pais.

aqui una lista

da compa no tengo ni idea que significa esto y para q es.

[look]

Empezado por ingabraham

da compa no tengo ni idea que significa esto y para q es.

esto:

Código Delphi [-]
WinExec(Pchar('rundll32.exe shell32,Control_RunDLL intl.cpl,,/f:"'+ExtractFilePath(Application.ExeName)+'regopts.txt'+'"'),

lo puedes meter en un boton, si te fijas hace referencia a un archivo regopts.txt, este debe ir en la carpeta en donde esta el exe de tu project, tambien es dentro de este que va el codigo de region;

dentro de regopts.txt :
[RegionalSettings]
UserLocale =0480a
UserLocale_DefaultUser =0480a

con eso puedes cambiar la configuracion reginal de tu ordenador desde delphi

[ingabraham]

osea yo quiero q me ponga el formato dd/mm/aaaa
separador mil .
separador decimal ,

con esto lo hago?

[ingabraham]

como es correcto

Reg.WriteString( 'sShortDate', 'aaaa-dd-mm');
o,
Reg.WriteString( 'sShortDate', 'yyyy-dd-mm');

[ingabraham]

hola un amigo me dio este codigo, como lo puedo adaptar para cambiar la fecha tambien.
q al arrancar mi programa cambie a
dd/mm/aaaa
y al salir
aaaa.mm.dd

en el create del datamodulo y en el destroy

Código Delphi [-]
procedure SetDecimalSeparator(Ch: Char);
var
  DefLCID: LCID;
  Buffer: LPSTR;
begin
  Application.UpdateFormatSettings := True;
  StrPCopy(Buffer, Ch);
  DefLCID := GetThreadLocale;
  if SetLocaleInfo(DefLCID, LOCALE_SDecimal, Buffer) then
    DecimalSeparator := StrPas(Buffer)[1];
  Application.UpdateFormatSettings := False;
end;
procedure SetMoneyDecimalSeparator(Ch: Char);
var
  DefLCID: LCID;
  Buffer: LPSTR;
begin
  Application.UpdateFormatSettings := True;
  StrPCopy(Buffer, Ch);
  DefLCID := GetThreadLocale;
  if SetLocaleInfo(DefLCID, LOCALE_SMONDECIMALSEP, Buffer) then
    DecimalSeparator := StrPas(Buffer)[1];
  Application.UpdateFormatSettings := False;
end;

procedure SetListSeparator(Ch: Char);
var
  DefLCID: LCID;
  Buffer: LPSTR;
begin
  Application.UpdateFormatSettings := True;
  StrPCopy(Buffer, Ch);
  DefLCID := GetThreadLocale;
  if SetLocaleInfo(DefLCID, LOCALE_SLIST, Buffer) then
    DecimalSeparator := StrPas(Buffer)[1];
  Application.UpdateFormatSettings := False;
end;

encontre esta pagina de los codigos :
http://msdn.microsoft.com/en-us/libr...(v=VS.85).aspx