AV при попытке расшифровать файл через DecryptFileA (и W тоже)

← →
Сварщик (2014-01-26 15:33) [0]

Всем привет. Написал нехитрую функцию для для шифрования/дешифрования файлов с помощью встроенной EFS.
function EFSSetFileAttributes(const FileName: string; bEncrypt: Boolean): Boolean; const DLL_NAME = "advapi32.dll"; EXPORT_FUNC: array[0..1] of string = ("DecryptFileA", "EncryptFileA"); var hModule: THandle; EFSFunc: function(lpFileName: PAnsiChar): Boolean; stdcall; begin Result := False; //SetErrorMode(SEM_FAILCRITICALERRORS); hModule := LoadLibrary(DLL_NAME); if hModule > 0 then begin @EFSFunc := GetProcAddress(hModule, PChar(EXPORT_FUNC[Word(bEncrypt)])); if @EFSFunc <> nil then Result := EFSFunc(PChar(FileName)); FreeLibrary(hModule); end; //SetErrorMode(0); end; procedure TForm2.Button1Click(Sender: TObject); begin if EFSSetFileAttributes("c:\newfolder\testfile.txt", True) then // если после вызвать с параметром False (расшифровка) возникнет AV ShowMessage("ok") else ShowMessage("fail"); end;

При шифровании все ок, а вот при дешифровке вылезает AV:
Access violation at address 00003F8. Read address 00003F8
Окно CPU:
http://s019.radikal.ru/i612/1401/42/65bab6afc4c9.jpg

Подскажите, в чем может быть проблема?
P.S Delphi 7

← →
clickmaker © (2014-01-26 15:37) [1]

у DecryptFile 2 параметра

← →
Сварщик (2014-01-26 15:39) [2]

AV при попытке расшифровать файл через DecryptFileA (и W тоже) Найти похожие ветки