Cambiar Formato Hora de Windows 7

[JerS]

amigos estoy utlizando este procedimiento:

Código Delphi [-]
procedure SetTimeFormat;
var
LCID    :LongInt;
AllOk   :Boolean;
begin
try
  LCID := GetSystemDefaultLCID;
  AllOk := SetLocaleInfo(LCID, LOCALE_STIMEFORMAT, 'H:mm') ;
    if AllOk then
      SendMessage(HWND_TOPMOST, WM_SETTINGCHANGE, 0, 0);
except
end;
end;

pero se queda colgado y no hace el trabajo, si conocen algún otro o ven la falla por favor ayúdenme, estoy mas que seguro que es problema de permisologia con W7

[ecfisa]

Hola JerS.

Probé este código en W7 y funciona:

Código Delphi [-]
procedure TForm1.FormShow(Sender: TObject);
begin
  Caption:= TimeToStr(Now)
end;

procedure TForm1.btn24HrsClick(Sender: TObject);
begin
  SetLocaleInfo(GetSystemDefaultLCID, LOCALE_STIMEFORMAT, 'HH:mm:ss')
end;

procedure TForm1.btn12HrsClick(Sender: TObject);
begin
  SetLocaleInfo(GetSystemDefaultLCID, LOCALE_STIMEFORMAT, 'hh:mm:ss')
end;

Pero para que la aplicación perciba el cambio hay que salir de ella y volver a entrar.

Saludos.

[JerS]

Empezado por ecfisa

Hola JerS.

Probé este código en W7 y funciona:

Código Delphi [-]
procedure TForm1.FormShow(Sender: TObject);
begin
  Caption:= TimeToStr(Now)
end;

procedure TForm1.btn24HrsClick(Sender: TObject);
begin
  SetLocaleInfo(GetSystemDefaultLCID, LOCALE_STIMEFORMAT, 'HH:mm:ss')
end;

procedure TForm1.btn12HrsClick(Sender: TObject);
begin
  SetLocaleInfo(GetSystemDefaultLCID, LOCALE_STIMEFORMAT, 'hh:mm:ss')
end;

Pero para que la aplicación perciba el cambio hay que salir de ella y volver a entrar.

Saludos.

Gracias ecfisa excelente! muchas gracias

[[Chris]]

:/ Me queda la duda del por qué necesitas cambiar el formato de la hora de Windows.

Saludos,
Chris