Cambiar Configuracion Regional desde Delphi
 

Hola Amigos!!!
Necesito que mi aplicacion cambie la configuracion regional de la PC , mas precisamente el simbolo decimal y el separador de miles. Cómo se hace esto desde delphi? Ayuda pleaseeee!!!

Un abrazo y gracias!!!

No es necesario que cambies la configuración regional de Windows para indicarle a tu aplicativo con que símbolos debe trabajar... ya que solo es cuestión de cambiar los valores de ciertas variables globales, como los son, por ejemplo:

DecimalSeparator := '.';
ThousandSeparator := ',';

Busca mas información en la ayuda, sobre dichas variables globales, pues hay mas...

Espero te sirva ;).

Gracias amigo, pero necesito que cambie la configuracion del equipo y no solo la de mi aplicacion. Tienes idea de como hacerlo?

Saludos

Entonces apuesto que el siguiente hilo te ayudara http://www.clubdelphi.com/foros/show...08&postcount=4

JuanchoArg,
Debes tener en cuenta que los cambios en la configuración regional pueden afectar a otros sistemas que se empleen.
No es bueno cambiar la configuración sino se tiene la certeza de que algo puede verse afectado.

Sobre todo si se altera el uso de simbolos decimal y el separador de miles. Un ejemplo de un software que se verá afectado por algún cambio es Excel.
Imaginate como se puede llegar a comportar un sistema de crédito, un sistema de puesto de venta.
No es lo mismo 800.000 que 800,000;)

No más te recomiendo que analices bien esto. No vaya a ser cosa que después te des con algunas sorpresitas.

Saludos,

Hola Delphius, se cuales son las consecuencias de hacer eso. El tema es que le queria ahorar a un usuario (él me lo pidió) tener que hacer ese cambio en la configuracion regional en forma manual agregandola a una barra flotante que he armado en delphi con aplicaciones varias.
Hay un sistema de la AFIP, el SIAP, que le cambia la configuracion regional y cuando sale de tal sistema no la regresa a valores anteriores y todos los sistemas se ven afectados, precisamente el excel , como decias.
Debe haber alguna forma de acceder a estos valores en el registro de windows y modificarlos con delphi. Si no me sale aqui tendré que hacerlo con VB :(.

Saludos Cordiales.

Ya viste el hilo que te referencie en mi respuesta anterior? :eek:

Hola Jhonny, si lo vi, pero sinceramente no lo entendí del todo bien. De todos modos ya lo hice en VB, salió mas rapido. Gracias por el interés.

Saludos amigo.

yo necesito eso por q tengo otro software con diferente configuracion regional
quiero q la cambie por la mia a
dd/mm/aaaa
12.526,54

y al cerrar mi aplicacion cambie a.

aaaa.mm.dd
15,526.54

me puedes colaborar compañero ?

Al abrir y/o cerrar tu aplicación, debes manipular el registro de Windows, eso es todo.

como hago esto desde delphi

Ok, de partida esta el evento OnCreate y OnClose

Luego esta la ruta en el registro de Windows con todos estos parametros, tu modificas los que convengan:

Y como ejemplo:

Código Delphi [-]
USES Registry;


var Reg: TRegistry;
begin
  // Creamos un objeto para manejar el registro
  Reg := TRegistry.Create;

  // Guardamos las opciones
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey( '\Control Panel\International', True ) then
    begin
      Reg.WriteString( 'sShortDate', 'dd/mm/aaaa');
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;

si coloco
Reg.WriteString( 'sShortDate', 'aaaa-dd-mm');
o como es:
Reg.WriteString( 'sShortDate', 'yyyy-dd-mm');

en el dbgrid me sigue apareciendo el formato estandar de windows

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.

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

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

con esto lo hago?

como es correcto

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

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