28
Октябрь
2008
Как узнать путь к директории Windows?
Как узнать путь к директории Windows?
'Лучше использовать:
'Label1.Caption = Environ(32)
'Или:
'Label1.Caption = Environ("windir")
Option Explicit
Private Declare Function GetWindowsDirectory _
Lib "kernel32" Alias "GetWindowsDirectoryA" _
(ByVal p As String, ByVal p1 As Long) As Long
Dim windir As String * 11
Private Sub Command1_Click()
Text1.Text = Left(windir, GetWindowsDirectory(windir, 11))
End Sub