WinAPI 32 bit
Option Compare Database Option Explicit ‘1. `ПУТЬ К ВИНДУ (API) ‘######################### Private Declare Function GetWindowsDirectory Lib «kernel32» Alias «GetWindowsDirectoryA» (ByVal p As String, ByVal p1 As Long) As Long Dim windir As String Private Sub Command1_Click() windir = Space(20) Text1.Text Продолжить чтение WinAPI 32 bit