Discussion :

[kikica]

Bonjour,
J'ai un petit soucis avec la base de registre: je veux que lorsque j'execute mon petit executable, il va lire dans l'horloge système, puis ecrire l'heurre lu dans la base de registre, clé :"HKCU/Software/Microsoft/Macle",
mais avec le rajout de une minute de plus, et sous format:

Code :

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

"2005.08.30 16:41:21"

Donc, si l'heure système était 2005.08.30 16:41:21, il rajoute 1 minute:

Code :

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

2005.08.30 16:42:21

Je vous remercie beaucoup!

[yoghisan]

Tu as un début de réponse dans la faq
Comment encoder/décoder une date ou un temps ?
mais travaille plus avec un TDateTime

Après reflexion (de ta part), je pourrais te donner une réponse !

[Lung]

Sinon, regarde FormatDateTime.

[Charette]

Tu as aussi l'API GetSystemTime qui te récupère l'heure GMT dans un enregistrement TSystemTime:
-Heure
-Minutes
-Secondes
-Jour
-...

Tu pourra donc travailler ensuite sur cet enregistrement pour modifier ta date

[kikica]

Ouauw!!
Tout ça a l'air très jolie, mais qq1 pourra-t-il me faire un exemple pratique, svp?

[Charette]

Code :

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

1
2
3
4
5
6
var Heure : TSystemTime;
begin
  //Tu récupere la date et l'heure
  GetSystemTime(Heure);
  //Tu ajoute +1 a ton heure
  Heure.wHour := Heure.wHour+1;

Bon je t'ai fait le début
Il faut que tu récupère le décalage horaire (et oui heure gmt)
Et que tu fasse ton insertion dans la base

[Lung]

Bin, vite fait, ca donne un truc comme ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
   Reg: TRegistry;
begin
   Reg := TRegistry.Create;
   try
      Reg.RootKey := HKEY_CURRENT_USER;
      if Reg.OpenKey('Software/Microsoft/Macle', False) then
      begin
         Reg.WriteString('MaValeur', FormatDateTime('yyyy.mm.dd hh:nn:ss', Now));
         Reg.CloseKey;
      end;
   finally
      Reg.Free;
   end;

N'oublie pas d'ajouter Registry dans tes uses.

[kikica]

Oueh!
Ca a l'air très correct, mais je ne vois aucune ligne écrite dens le registre...Ni lorsque la clé "macle" existe, ni si elle n'existe pas!

[yoghisan]

question ?
C'est volontaire d'avoir voulu changé le format de la date ?
2005.08.30 16:42:21 au lieu de 2005/08/30 16:42:21

[yoghisan]

Bon, je ne respecte pas tout à fait ton cahier des charges sur le le type de la variable enregistrée car l'information reste exploitable facilment en tant qu'heure.
Le code est facilement modifiable pour etre conforme à tes besoins mais bon...

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
uses
  DateUtils, Registry;
 
procedure Enregistrer(DateTime: TDateTime);
var Registry: TRegistry;
begin
  Registry := TRegistry.Create;
  try
    Registry.RootKey := HKEY_CURRENT_USER;
    Registry.OpenKey('Software\Microsoft\Macle', True);
    Registry.WriteDateTime('DateTime', DateTime);
    Registry.CloseKey;
  finally
    Registry.Free;
  end;
end;
 
function Ouvrir: TDateTime;
var Registry: TRegistry;
begin
  Registry := TRegistry.Create;
  try
    Registry.RootKey := HKEY_CURRENT_USER;
    Registry.OpenKey('Software\Microsoft\Macle', False);
    Result := Registry.ReadDateTime('DateTime');
    Registry.CloseKey;
  finally
    Registry.Free;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var DateTime: TDateTime;
begin
  // recuperation de la date
  DateTime := Now;
  ShowMessage( DateTimeToStr(DateTime) );
 
  // incrementation de la date
  DateTime := IncMinute(DateTime,1);
  ShowMessage( DateTimeToStr(DateTime) );
 
  Enregistrer(DateTime);
 
  TimeSeparator := ':';
  DateSeparator := '.';
  ShowMessage( DateTimeToStr(Ouvrir) );
 
  Application.Terminate;
end;

[kikica]

J'y suis prèsque...
La clé est bien crée dans la base de registre et une valeur "datetime", mais c'est une valeur binaire, codée. J'ai besoin d'une "string".

[yoghisan]

regarde ce que dit lung

[kikica]

Merciii les gars, c'est résolu!!

[kikica]

Encore une petite question:
POur ecrire une nouvelle valeur string dans "maclé": par ex. pour l'heure actuelle c'est bien

Code :

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

Reg.WriteString('MaValeur', FormatDateTime('yyyy.mm.dd hh:nn:ss', Now));

mais pour dire :

"Lundi prochain"

C'est une enigme pour moi...
Donc, comment ecrire "Lundi prochain, ou...tous les lundis ?"

Merci d'avance.

[Lung]

mais pour dire :

"Lundi prochain"

C'est une enigme pour moi...
Donc, comment ecrire "Lundi prochain, ou...tous les lundis ?"

Tu veux écrire la chaine "lundi prochain", ou la date du prochain lundi ?

Code :

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

Reg.WriteString('MaValeur', 'Lundi Prochain');

[kikica]

Mais la date, bien sûr!
Désolé pour cet malentendu...

[Lung]

Pour trouver le prochain lundi, regarde l'aide de DayOfTheWeek et de Tomorrow, par exemple.

[kikica]

Oui, mais j'obtiens les chiffres 1-7. Comment traduire cette chiffre en date, par ex. lundi prochain

Code :

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

1
2
 
showmessage ('lundiprochain = '(inttostr(variable)));

[Mariussy]

En effet, si j'ai bien compris, tu veux calculer la date du prochain lundi, c'est ça ?