Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" _
(ByVal p As String, ByVal p1 As Long) As Long
Private Sub Form_Load()
Dim windir As String
windir = Space(20)
Caption = Left(windir, GetWindowsDirectory(windir, 20))
End Sub
`Теперь простая Функция:
Private Sub Form_Load()
Caption = Environ("windir")
End Sub |
|
