用Delphi XE5写一段对文件夹进行加密的实用代码，并加中英文注释

以下是使用 Delphi XE5 编写的将文件夹加密的示例代码：

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    edtFolderPath: TEdit;
    edtPassword: TEdit;
    btnEncrypt: TButton;
    lblFolderPath: TLabel;
    lblPassword: TLabel;
    procedure btnEncryptClick(Sender: TObject);
  private
    { Private declarations }
    procedure EncryptFilesInFolder(const AFolderPath, APassword: string);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
  System.IOUtils;

procedure TForm1.btnEncryptClick(Sender: TObject);
begin
  EncryptFilesInFolder(edtFolderPath.Text, edtPassword.Text);
  ShowMessage('Encryption complete.');
end;

procedure TForm1.EncryptFilesInFolder(const AFolderPath, APassword: string);
var
  LSearchRec: TSearchRec;
  LFilePath: string;
begin
  if FindFirst(AFolderPath + '\*.*', faAnyFile, LSearchRec) = 0 then
  begin
    repeat
      if (LSearchRec.Name = '.') or (LSearchRec.Name = '..') then
        Continue;

      LFilePath := IncludeTrailingPathDelimiter(AFolderPath) + LSearchRec.Name;

      if (LSearchRec.Attr and faDirectory) = faDirectory then
        EncryptFilesInFolder(LFilePath, APassword)
      else
        EncryptFile(LFilePath, APassword);
    until FindNext(LSearchRec) <> 0;

    SysUtils.FindClose(LSearchRec);
  end;

  // Add English comment here
  // Change file/folder attributes to hidden and read-only
  TFile.SetAttributes(AFolderPath, TFile.GetAttributes(AFolderPath) + [TFileAttribute.faHidden, TFileAttribute.faReadOnly]);
end;

end.

该示例代码中，我们定义了一个 EncryptFilesInFolder 方法，该方法使用递归方式遍历指定文件夹下的所有文件和子文件夹，并调用 EncryptFile 方法对文件进行加密。同时，该方法在处理完所有文件后，将指定文件夹的属性更改为隐藏和只读。在该代码中，我们还定义了一个界面，其中有两个输入框用于输入文件夹路径和密码，以及一个按钮用于触发加密操作。

请注意，该示例代码仅供参考，具体的加密实现可能因需求而异，需要根据实际情况进行修改和调整。