general.bas

来自「鼠标移动到richtext box中时查看单词(3KB)」· BAS 代码 · 共 18 行

Attribute VB_Name = "General"
Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Public Const MAX_PATH = 260
   
Public WinPath As String
Public WinSysPath As String