Discussion :

[gaby277]

Bonjour,
Je cherche à décoder dans le registre des valeurs de type REG_Binary qui correspondent à des dates
(pour info les clés sont du genre HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkList\Profiles\{1D982609-2A7A-4321-91F2-2ECE4004EE6A}) values « DateCreated » ou « dateLastConnected ».

Avec Regedit je lis par exemple :
DateCreated REG_Binary « dd 07 01 00 06 00 0c 00 2c 00 38 00 »
C’est a priori le 12/01/2013 17 :14 :26
C’est WIndows 8.1 qui écrit ces clés.

Dans Delphi ,
• Avec Tregistry.readDateTime
o ça déclenche une exception. Dans la doc XE : « Si l'entrée de registre ne contient pas de valeur date ou heure », une exception est déclenchée. . Des recherches Google indiquent que Tregidtry.readDateTime ne marcherait que si la valeur du registre été écrite avec Tregistry.WriteDateTime.

• Avec Tregidtry.readBinary
o je récupère bien « Dd 07 01 00 06 00 0c 00 2c 00 38 00 », mais a partir de la je ne sais pas convertir en Tdatetime ou une string de date lisible.

PS : je ne pense pas que ce soit un problème de droits : pour ouvrir la clé je lance l’exécutable en mode administrateur et je vérifie que la clé est bien ouverte. Par ailleurs, dans la clé je récupère sans problème les valeurs Reg_SZ par exemple « Description » ou « ProfileName »

Comment décoder, quel est le format utilisé par Windows ?

[Andnotor]

Le format n'est pas TDateTime (réel) mais TSystemTime (record de word). Peut être converti ensuite par SystemTimeToDateTime.

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
  ST :TSystemTime;
 
begin
  with TRegistry.Create do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
 
    if OpenKeyReadOnly('SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkList\Profiles\{GUID}') then
    begin
      ReadBinaryData('DateLastConnected', ST, SizeOf(ST));
      Label1.Caption := DateTimeToStr(SystemTimeToDateTime(ST));
    end;
 
    Free;
  end;
end;

[gaby277]

Bonjour
Un grand merci Andnotor ça marche
Il y avait un moment que je galérai en essayant tout ce qui pouvait ressembler à un format date genre timestamp , date unix etc ..

Cerises sur le gâteau :
L'explication est simple et claire, le code est fourni : c'est presque trop !

Au passage un merci à Shait et troll pour sa ligne magique que j'ai ajoutée à l'exemple.

Code :

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

Access := KEY_READ or KEY_WOW64_64KEY;

qu'il a récemment indiqué à un autre utilisateur. Je suis sous 8.1 64bits, sans elle, même en mode administrateur, la clé n'est pas ouverte.
Bonne fin de week-end à tous .

[Andnotor]

sans elle, même en mode administrateur, la clé n'est pas ouverte.

D'où l'utilisation de OpenKeyReadOnly qui force KEY_READ
KEY_WOW64_64KEY est pour lire une clé 64 bits depuis une application 32 bits.

[gaby277]

Bonjour,

D'où l'utilisation de OpenKeyReadOnly qui force KEY_READ
KEY_WOW64_64KEY est pour lire une clé 64 bits depuis une application 32 bits.

J'utilise Delphi XE1 starter donc applications uniquement 32 bits.
Je viens de refaire l'essai pour confirmer que la ligne est nécessaire.

Par contre effectivement le fonctionnement des applis 32 bits sous OS 64 bits et le mode administrateur c'est deux choses différentes et la précision était utile alors que mon message était approximatif dans la mesure ou il semblait dire que ça "augmentait le mode administrateur".