用Getsystemdirectory和Getwindowsdirectory函数

Question

第(1)题,在模块1中编写过程Main(),用Getsystemdirectory函数获得system或system32
路径用messagebox显示出来?第二题,(2)在模块1中编写过程Main(),用Getwindowsdirectory函数获得windows所在目录名称用messagebox显示出来?多谢多谢大家

Answer 1

2)
Private Declare Function GetWindowsDirectory _
Lib "kernel32" Alias "GetWindowsDirectoryA" ( _
ByVal lpBuffer As String, _
ByVal nSize As Long) As Long
Dan ist das Windowsverzeichenis:
Dim Temp As String * 256
X = GetWindowsDirectory(Temp, Len(Temp))
WinDir = Left$(Temp, X)

Answer 2

1)
   Dim sSave As String, Ret As Long
   'Create a buffer
   sSave = Space(255)
   'Get the system directory
   Ret = GetSystemDirectory(sSave, 255)
   'Remove all unnecessary chr$(0)'s
   sSave = Left$(sSave, Ret)
   'Show the windows directory
   MsgBox "Windows System directory: " + sSave2)
Private Declare Function GetWindowsDirectory lib "kernel32" Alias "GetWindowsDirectoryA" ( ByVal lpBuffer As String, ByVal nSize As Long) As Long
Dim Temp As String * 256
dim WinDir as string
X = GetWindowsDirectory(Temp, Len(Temp))
WinDir = Left$(Temp, X)
msgbox windir