R�cup�re le statut du cryptage du fichier sp�cifi�
#include <WinAPIFiles.au3>
_WinAPI_FileEncryptionStatus ( $sFilePath )
$sFilePath | Le nom du fichier dont vous voulez le status de cryptage. |
Succ�s: | Retourne le status de cryptage ($FILE_*). |
�chec: | Retourne (-1) et d�finit @error <> 0, appelez _WinAPI_GetLastError() pour obtenir des informations de code �tendu. |
Les constantes $FILE_* n�cessitent #include <APIFilesConstants.au3>
Consultez FileEncryptionStatus dans la librairie MSDN.
#include <APIFilesConstants.au3> #include <MsgBoxConstants.au3> #include <WinAPIFiles.au3> Local $sFile = FileOpenDialog('Select File', @ScriptDir, 'All Files (*.*)', 1 + 2) If @error Then Exit Switch _WinAPI_FileEncryptionStatus($sFile) Case $FILE_ENCRYPTABLE If _WinAPI_EncryptFile($sFile) Then MsgBox(BitOR($MB_ICONINFORMATION, $MB_SYSTEMMODAL), 'Cryptage de fichier', 'Le fichier est crypt� avec succ�s.') Else MsgBox(BitOR($MB_ICONERROR, $MB_SYSTEMMODAL), 'Cryptage de fichier', 'Impossible de crypter le fichier.') EndIf Case $FILE_IS_ENCRYPTED If MsgBox(BitOR($MB_YESNO, $MB_ICONQUESTION, $MB_SYSTEMMODAL), 'Cryptage de fichier', 'Le fichier est d�j� crypt�.' & @CRLF & @CRLF & 'Je le d�crypte?') = 6 Then If _WinAPI_DecryptFile($sFile) Then MsgBox(BitOR($MB_ICONINFORMATION, $MB_SYSTEMMODAL), 'Cryptage dr fichier', 'Le fichier est d�crypt� avec succ�s.') Else MsgBox(BitOR($MB_ICONERROR, $MB_SYSTEMMODAL), 'Cryptage de fichier', 'Impossible de d�crypter le fichier.') EndIf EndIf Case Else MsgBox(BitOR($MB_ICONERROR, $MB_SYSTEMMODAL), 'Cryptage de fichier', 'Impossible d''effectuer l''op�ration.') EndSwitch