Option Strict On
Imports System.Runtime.InteropServices
Imports System.Text
Public Module Tester
<DllImport("User32.dll", EntryPoint:="MessageBox", ExactSpelling:=False, CharSet:=CharSet.Unicode)> _
Private Function MessageBox (ByVal hWnd As IntPtr, ByVal lpText As String, byVal lpCaption As String, ByVal uType As UShort) As Short
End Function
<DllImport("Kernel32.dll", EntryPoint:="GetSystemDirectory", ExactSpelling:=False, CharSet:=CharSet.Unicode)> _
Private Function GetSystemDirectory(ByVal lpBuffer As StringBuilder, _
ByVal nSize As Integer) As Integer
End Function
Const MB_OK As Integer = &H0
Const MAX_PATH As Integer = 260
Public Sub Main()
Dim caption As String = "System Directory"
Dim buffer As New StringBuilder(MAX_PATH)
GetSystemDirectory(buffer, MAX_PATH)
MessageBox(Nothing, buffer.ToString(), caption, MB_OK)
End Sub
End Module
|