api函数如何传递PSECURITY_ATTRIBUTES?

Question

Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long大家看我为什么总是无法成功创建：
Dim i As Long
Dim X As SECURITY_ATTRIBUTESi = CreateFile("D:\1.txt", 0, 1, X, 0, 0, 0)
d盘存在1.txt且没有打开，但是i总是=-1

Answer 1

如果我这样写；系统总提示类型不符
i = CreateFile("D:\1.txt", 0, 1, null, 0, 0, 0)

Answer 2

Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, Byval lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Longi = CreateFile("D:\1.txt", 0, 1, 0,Byval 0&, 0, 0)

Answer 3

Private Const CREATE_NEW As Long = 1i = CreateFile("D:\1.txt", 0, 1, X, CREATE_NEW, 0, 0)'创建一个新的文件