GetWindowsDirectoryA

VB.Net

---

Module GetWindowsDirectoryA

    Declare Function GetWindowsDirectory Lib "Kernel32" Alias "GetWindowsDirectoryA" (ByVal p1 As String, ByVal p2 As Integer) As Integer

    Public Sub GetWindowsDirectoryA_Main()
        Dim Buffer As String
        Dim Length As Integer
        Buffer = Space(250)
        Length = GetWindowsDirectory(Buffer, Buffer.Length)
    End Sub

End Module