Discussion :

[patrice@]

Bonjour à tous,
Sous Windows 10, je cherche à modifier la date et l'heure système mais ... je coince, rien de ce que j'essaye ne fonctionne.
(j'ai désactivé le réglage de l'heure automatique et la détection du fuseau horaire automatique)

J'ai essayé ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
var
  SystemTime: TSystemTime;
  NewTime, NewDate: string;
begin
  NewTime := '12:00:00';
  NewDate := '01/01/2006';
  DateTimeToSystemTime(StrToDate(NewDate) + StrToTime(NewTime), SystemTime);
  SetLocalTime(SystemTime);
  // Tell windows, that the Time changed!
  PostMessage(HWND_BROADCAST, WM_TIMECHANGE, 0, 0); 
end;

sans succès

Ceci (j'ai un MaskEdit formaté !99/99/0000 90h 00' 00";1;_) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
   t:_SYSTEMTIME;
begin
     GetLocalTime(t);
     if TryStrToDateTime(MaskEdit2.Text,DateTimeValue) 
     then begin
             t.wDay:=StrToInt(Copy(MaskEdit2.Text,1,2));
             t.wMonth:=StrToInt(Copy(MaskEdit2.Text,4,2));
             t.wYear:=StrToInt(Copy(MaskEdit2.Text,7,4));
 
             t.wHour:=StrToInt(Copy(MaskEdit2.Text,12,2));
             t.wMinute:=StrToInt(Copy(MaskEdit2.Text,16,2));
             t.wSecond:=StrToInt(Copy(MaskEdit2.Text,20,2));
             t.wMilliseconds:=0;
             SetLocalTime(t);
     end;
end;

sans plus de succès

Si vous avez une idée (brillante) je suis preneur

[Andnotor]

Un utilisateur standard ne pourra pas changer l'heure, il faut une élévation de privilèges.

[sgmsg]

Andnotor a tout à fait raison.

Mais si tu trouves une façon automatique, je suis preneur...

[patrice@]

hmmm ... je suis administrateur du système m'arrange pas comme réponse et si on se met en mode super administrateur ? (ah ben j'ai essayé net user Administrator /active:yes et il me répond "le nom d'utilisateur est introuvable" ... bon, pas de super admin sur mon pc)

[Andnotor]

hmmm ... je suis administrateur du système m'arrange pas comme réponse

Les membres du groupe administrateur ne sont que de simples utilisateurs tant qu'il n'y a pas eu d’élévation. La seule différence est qu'ils n'ont pas besoin de s'authentifier à l'aide d'un autre compte puisqu'ils font déjà partie du bon groupe, ils leur suffit de quittancer la demande d'élévation.

Lance ton programme à l'aide de "exécuter en tant qu'administrateur" pour voir

[patrice@]

YES! grand merci Andnotor, une manip simple mais ...
du coup les 2 procédures fonctionnent parfaitement
Y a t-il un moyen d'automatiser le lancement du programme en mode administrateur ? ou alors de savoir si le programme a été lancé en mode administrateur ?

[Cirec]

Bonjour,

peut être que cet exemple de code pourrait te convenir

Cordialement,
@+