如题,谢谢高手指教!

解决方案 »

  1.   

    我找到了,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