Comment changer l'heure système ?
J'utilise le code suivant (trouvé là http://msdn.microsoft.com/library/de...ystem_time.asp) pour changer l'heure du PC :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14
| procedure TForm1.Button2Click(Sender: TObject);
var
st: SYSTEMTIME;
begin
GetSystemTime(st);
st.wHour := StrToInt(Copy(TimeToStr(_Heure), 1, 2));
st.wMinute := StrToInt(Copy(TimeToStr(_Heure), 4, 2));
st.wSecond := StrToInt(Copy(TimeToStr(_Heure), 7, 2));
Label2.Caption := IntToStr(st.wHour) + ':' + IntToStr(st.wMinute) + ':' + IntToStr(st.wSecond);
if not SetSystemTime(st) then
Application.MessageBox('.Erreur : la mise à l''heure a échoué !', PChar(Caption + ' - erreur'), MB_ICONERROR + MB_OK);
end; |
La récupération de l'heure et la modification se passe bien : je le vérifie avec mon Label2.
Mais le SetSystemTime me mets une heure fantaisiste (il ne renvoit pas d'erreur) ...
Quelqu'un aurrait une idée ...
:hola: