如何用VB得到當前Windows的安裝日期

Question

如題

Answer 1

當前Windows的安裝日期
什么意思啊？

Answer 2

就是想知道Windows是在什么時候安裝的。

Answer 3

用VB得到windows系统安装时的时间(for NT,2000,XP,..) http://blog.csdn.net/tanaya/archive/2005/04/21/356809.aspx我把这个写成了一个函数，调用很方便，呵呵，好像没有什么用但是 Windows优化大师里面也有这个项，好玩罢了

Answer 4

还是把代码贴过来罢：Option ExplicitPrivate Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As LongPrivate Const HKEY_LOCAL_MACHINE = &H80000002
Private Const REG_DWORD = 4Function GetWindowsNTInstallTime() As String
    On Error Resume Next
    Dim InstallDateValue As Long
    Dim hKey As Long
    Dim ret As String
    If RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion", hKey) = 0 Then
       If RegQueryValueEx(hKey, "InstallDate", 0&, REG_DWORD, InstallDateValue, 4) = 0 Then
          ret = CStr(InstallDateValue)
       End If
       If hKey Then RegCloseKey hKey
    End If
    If ret <> "" Then
        GetWindowsNTInstallTime = DateAdd("s", CLng(ret), "1970-01-01 00:00")
    Else
        GetWindowsNTInstallTime = "时间未知"
    End If
End FunctionPrivate Sub Command1_Click()
    MsgBox "当前系统的安装时间为：" & GetWindowsNTInstallTime, vbInformation, ""
End Sub