Function GetWindowsSetupDate:string;
  const
    regpath   = 'SOFTWARE\Microsoft\Windows NT\CurrentVersion';
    ValueName = 'InstallDate';
  var
    hSubKey   : HKEY;
    BufSize   : DWORD;
    Buf       : DWORD;
    MyValType : DWORD;
    tm        : TDateTime;
    time      : _FILETIME;
    fTime     : SYSTEMTIME;
  begin
//  01.01.1970
//  31536000
//  2629743
//  1258983428
    if RegOpenKey(HKEY_LOCAL_MACHINE, regpath,hSubKey) = ERROR_SUCCESS then
      if RegQueryValueEx(hSubKey, ValueName, nil, @MyValType, nil, @BufSize) =ERROR_SUCCESS then
        begin
          if  RegQueryValueEx(hSubKey, ValueName, nil, @MyValType, @Buf,@BufSize) =ERROR_SUCCESS then
            begin
              time.dwHighDateTime:=Buf;
              FileTimeToLocalFileTime(time,time);
              FileTimeToSystemTime(time,ftime);
              result:=Format('%d.%d.%d %d:%d:%d',[fTime.wDay,fTime.wMonth,fTime.wYear,fTime.wHour,fTime.wMinute,fTime.wSecond]);
            end;
        end;
  end;