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;  

Взято с сайта



Начало  Назад  Вперед