臨時代碼 Windows安裝日期

標籤：

{procedure Time_T_to_FileTime(const time_in: DWORD; const pft: PFILETIME); inline;var  X: Int64;begin  x := LongLong(time_in) * 10000000 + 116444736000000000; //$19db1ded53ea710;  pft^.dwHighDateTime := DWORD((x shr 32) and $0FFFFFFFF);  pft^.dwLowDateTime := DWORD(x and $0FFFFFFFF);end;function Time_T_2_DateTime(const time_in: DWORD): TDateTime; inline;var  ft: FILETIME;  st: SYSTEMTIME;begin  Time_T_to_FileTime(time_in, @ft);  FileTimeToLocalFileTime(ft, ft);  FileTimeToSystemTime(ft, st);  Result := SystemTimeToDateTime(st);end;          }{//系統安裝時間function DateInstallWindows(var DateInstall: TDateTime): Boolean;var  RegDate: TRegistry;  Buffer: Integer;begin  Result := False;  RegDate := TRegistry.Create;  try    RegDate.RootKey := HKEY_LOCAL_MACHINE;    if Win32Platform = VER_PLATFORM_WIN32_NT then    begin      if RegDate.OpenKey(‘Software\Microsoft\Windows NT\CurrentVersion‘, True)        then      begin        RegDate.ReadBinaryData(‘InstallDate‘, Buffer, sizeof(Buffer));        DateInstall := Time_T_2_DateTime(Buffer);        //        DateInstall := StrToDateTime(FormatDateTime(‘dd/mm/yyyy hh:nn‘, FileDateToDateTime(Buffer)));        Result := True;      end    end    else      if RegDate.OpenKey(‘Software\Microsoft\Windows\CurrentVersion‘, True)        then      begin        RegDate.ReadBinaryData(‘FirstInstallDateTime‘, Buffer, sizeof(Buffer));  //      DateInstall := StrToDateTime(FormatDateTime(‘dd/mm/yyyy hh:nn‘, FileDateToDateTime(Buffer)));        Result := True;      end  finally    RegDate.CloseKey;    RegDate.Free;  end;end;    }  //用法{  procedure   TForm1.BitBtn2Click(Sender:   TObject);  var        TheDate:   TDateTime;  begin  if   DateInstallWindows   (TheDate)   Then   Label1.Caption:=DateTimeToStr   (TheDate);  end;  }//使用(假定註冊表讀出來的時間值是:1203249216)://Delphi(Pascal) code//ShowMessage(FormatDatetime(‘yyyy-mm-dd hh:nn:ss‘,Time_T_2_DateTime(1203249216)));{var  Buffer: PByteArray;  BufferSize: Integer;  s: string;  i: Integer;begin  with TRegistry.Create do  try    RootKey := HKey_LOCAL_Machine;    OpenKey(‘Software\Microsoft\Windows\Currentversion‘, False);    try      BufferSize := GetDataSize(‘FirstInstallDateTime‘);      GetMem(Buffer, BufferSize);      try        ReadBinaryData(‘FirstInstallDateTime‘, Buffer^, BufferSize);        s := ‘‘;        for i := 0 to BufferSize - 1 do          s := Format(‘%s%.2x ‘, [s, Buffer^[i]]);        Delete(s, Length(s), 1);        Label1.Caption := s;      finally        FreeMem(Buffer, BufferSize);      end;    finally      CloseKey;    end;  finally    Free;  end;end; ////////////////////////////////////////////////////////// }

 

臨時代碼 Windows安裝日期