Cambiar Configuracion Regional e Idioma de la PC

[ecfisa]

Hola.

Proba con esta modificación:

Código Delphi [-]
begin
  with TRegistry.Create do
  try
    RootKey := HKEY_CURRENT_USER;
    if not OpenKey('\Control Panel\International', False) then
      raise Exception.Create('Error leyendo el registro');
    WriteString('iCountry', '591');
    WriteString('sCountry', 'Bolivia');
    WriteString('Locale', '0000400A');
    WriteString('LocaleName', 'es-BO');
    WriteString('sLanguage', 'ESB');
    WriteString('sDecimal',',');
    WriteString('sShortTime', 'hh:mm:ss tt');
    WriteString('sCurrency', '$b');
    WriteString('iCurrDigits', '2');
    WriteString('sShortDate', 'dd:MM:yyyy');
  finally
    CloseKey;
    Free;
  end;

Saludos.

[[Delphius]]

Supongo que tu aplicación va a sacar un cartelote enorme diciendo que ciertos cambios en la configuración regional podrían afectar el funcionamiento de otros sistemas.

En lo posible no hay que cambiar la configuración regional. Si es cosa únicamente para tu aplicación debes hacer uso de las variables globales que destina para eso, como CurrencyDecimals para indicar la cantidad de decimales, CurrencyString y CurrencyFormat se puede utilizar para establecer el símbolo de moneda y su posición... también las hay para fechas aunque no las recuerdo ahorita (salvo la ShorDateFormat).

Saludos,

[ecfisa]

Hola.

En lo posible no hay que cambiar la configuración regional.

Totalmente de acuerdo con lo que te dice Delphius, no es bueno que nuestras aplicaciones hagan cambios en el S.O. ya que puede afectar al buén funcionamiento de otras (también comentado en su mensaje).
Encontrarás toda la información sobre las variables globales de la unit SysUtils en la ayuda de Delphi (busca por SysLocale por ejemplo).


Pero si deseas experimentar cambiando los valores del sistema, te agrego algunos enlaces que te pueden interesar:

• Understanding Internationalization
• Locale IDs Assigned by Microsoft
• Table of Country/Region and State/Province Names and Codes
• Table of Language Culture Names, Codes, and ISO Values Method

Saludos.

[darkbits]

ecfisa y Delphius Gracias por el consejo tomare encuenta de solo cambiar el simbolo de currency y decimal mil gracias por la ayuda.

[darkbits]

Este si Funcion


tube q aumentar este codigo para que la hora se actualice de 17:00 a 5:00 PM en ese mismo instante q se ejecuta

de lo contrario no se actualizaba

Código Delphi [-]
Windows.SendMessageTimeout(HWND_BroadCast,WM_SettingChange,0,0,SMTO_AbortIfHung,15,dResult);

o hay algo mejor q esta linea