Discussion :

[Lung]

J'utilise le code suivant (trouvé là http://msdn.microsoft.com/library/de...ystem_time.asp) pour changer l'heure du PC :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

[Henkyl]

Je n'ai trouver aucune aide pour SetSystemTime dans l'aide de delphi 7.0 ...

[Lung]

On m'a donné la solution :
Il faut utiliser SetLocalTime à la place !