Главная » Статьи » Delphi » Статьи Delphi

Скачивать материалы с сайта, могут только зарегистрированные пользователи.
Для регистрации заполните два поля ниже!

Через минуту Вы получите "Гостевой доступ"




Как шифровать файлы при помощи windows NTFS API
Как шифровать файлы при помощи windows NTFS API

{....}

{
Dieser Tip funktioniert ab Windows 2000 (NTFS 5)

Diese 2 Funktionen sind in windows.pas definiert, jedoch sind sie dort
falsch definiert. Deshalb hier die eigene Definition.
}


{
This tip works with Windows 2000 (NTFS 5) and later

These 2 functions are defined in windows.pas, but they're defined wrong. In this
case our own definition.
}


function EncryptFile(lpFilename: PChar): BOOL; stdcall;
external advapi32 name 'EncryptFileA';

function DecryptFile(lpFilename: PChar; dwReserved: DWORD): BOOL; stdcall;
external advapi32 name 'DecryptFileA';

{....}

procedure TForm1.Button1Click(Sender: TObject);
begin
if not EncryptFile('c:\temp') then
ShowMessage('Cannot encrypt directory.');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if not DecryptFile('c:\temp', 0) then
ShowMessage('Cannot decrypt directory.');
end;

Категория: Статьи Delphi | Добавил: c1 (2009 Июль 10)
Просмотров: 509 | Теги: Как шифровать файлы при помощи wind | Рейтинг: 0.0/0

Выразить благодарность - Поделиться с друзьями!

 

Здесь все о технической стороне 1С!

 

Узнай, как правильно администрировать 1С Предприятие
Регистрируйся на бесплатный 7-ми дневный курс сейчас:

Ваш E-Mail в безопасности



Всего комментариев: 0
avatar