我找到了,VB的代码,需要的请看。 Private Declare Function EncryptFile _ Lib "advapi32.dll" Alias "EncryptFileA" _ (ByVal lpFileName As String) As Long Private Declare Function DecryptFile _ Lib "advapi32.dll" Alias "DecryptFileA" _ (ByVal lpFileName As String, _ ByVal dwReserved As Long) As Long Private Declare Function FileEncryptionStatus _ Lib "advapi32.dll" Alias "FileEncryptionStatusA" _ (ByVal lpFileName As String, _ lpStatus As Long) As Long
Private Declare Function EncryptFile _
Lib "advapi32.dll" Alias "EncryptFileA" _
(ByVal lpFileName As String) As Long
Private Declare Function DecryptFile _
Lib "advapi32.dll" Alias "DecryptFileA" _
(ByVal lpFileName As String, _
ByVal dwReserved As Long) As Long
Private Declare Function FileEncryptionStatus _
Lib "advapi32.dll" Alias "FileEncryptionStatusA" _
(ByVal lpFileName As String, _
lpStatus As Long) As Long