Attribute VB_Name = "Module1"
Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1
Public Const SND_NODEFAULT = &H2
Public Const SND_MEMORY = &H4
Public Const SND_LOOP = &H8
Public Const SND_NOSTOP = &H10
Public Const SW_SHOWNORMAL = 1

Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

' 獲取Windows目錄
Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

' 檢查系統目錄
Public Function GetSystemPath() As String
    Dim p As String * 80
    Dim Length As Long
    Dim path As String
    Length = GetSystemDirectory(p, Len(p))
    path = Left(p, Length)
    GetSystemPath = path
End Function

' 檢查Windows目錄
Public Function GetWindowsPath() As String
    Dim p As String * 80
    Dim Length As Long
    Dim path As String

    Length = GetWindowsDirectory(p, Len(p))
    path = Left(p, Length)

    GetWindowsPath = path

End Function
'用戶信息