Public Type SECURITY_ATTRIBUTES nLength As Long lpSecurityDescriptor As Long bInheritHandle As Long End Type
Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long 把SECURITY_ATTRIBUTES型声明为Long型,传递ByVal 0&就行了
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
把SECURITY_ATTRIBUTES型声明为Long型,传递ByVal 0&就行了