Attribute VB_Name = "Windir"

' API pour la rcupration rpertoire Windows,
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Function PRGetRepertoireWindows() As String
    Dim WindowsDir As String * 255
    Dim Longueur As Integer
    ' rcupration du rpertoire d'installation de Windows par API
    Longueur = GetWindowsDirectory(WindowsDir, Len(WindowsDir))
    PRGetRepertoireWindows = Left(WindowsDir, Longueur)
End Function