Zjištění základních adresářů Windows |
![]() |
Postup: V modulu deklarujte: Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Public Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nSize As Long, ByVal lpBuffer As String) As Long Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long *Každá deklarace musí být celá na samostatné řádce Private Function GetWinDir() As String
Dim r As Long End Function Public Function GetTempDir() As String
Dim r As Long End Function Private Function GetSystemDir() As String
Dim r As Long End Function Private Function TrimNull(item As String)
Dim pos As Integer End Function Ve formuláři, na událost Click tlačítka:
Label1 = GetWinDir() End Sub Spusťte projekt. Po kliknutí na tlačítko se do jednotlivých jmenovek vyplní příslušné údaje. |
![]() |
Autor: The Bozena |