Cambiar Formato Hora de Windows 7

[JerS]

amigos estoy utlizando este procedimiento:


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:

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]

Hola JerS.

Probé este código en W7 y funciona:

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