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