Скачивать материалы с сайта, могут только зарегистрированные пользователи.
Для регистрации заполните два поля ниже!
Через минуту Вы получите "Гостевой доступ"
Как шифровать файлы при помощи 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)
|
Просмотров: 572
| Теги: Как шифровать файлы при помощи wind
| Рейтинг: 0.0/0 |
Выразить благодарность - Поделиться с друзьями!