🚀 go-pugleaf

"Remy Lebeau (TeamB)" <gambit47.no.spam@no.spam.yahoo.com> wrote in message
news:3fdcddd4$1@newsgroups.borland.com...
|
| Gambit

Thanks Remy,
My meaning is:

Var Version: TOSVersionInfo; Bufer: Array[0..3] of Byte; Regis: TRegistry;
Begin
   Regis := TRegistry.Create;
   Regis.RootKey := HKEY_LOCAL_MACHINE;
   Version.dwOSVersionInfoSize := SizeOf(Version);
   GetVersionEx(Version);
   Case Version.dwPlatformID of
      VER_PLATFORM_WIN32_WINDOWS:
      Begin
         Regis.OpenKey('\Software\Microsoft\Windows\CurrentVersion', False);
         Regis.ReadBinaryData('FirstInstallDateTime', Bufer, SizeOf(Bufer));
         Label1.Caption := FormatDateTime('yyyy/mm/dd',
         FileDateToDateTime(Bufer[0] + Bufer[1] * 256 +
         Bufer[2] * 65535 + Bufer[3] * 16777216));
      End;
      VER_PLATFORM_WIN32_NT:
      Begin
         Regis.OpenKey('\Software\Microsoft\Windows NT\CurrentVersion',
False);
         Label1.Caption := FormatDateTime('yyyy/mm/dd',
         Regis.ReadInteger('InstallDate'));
         // --------------------------------- Error!
         // Return me: 30314/21/01!
      End;
   End;
   Regis.Free;
End;