关于目录加密的问题

Question

我想写一个目录加密工具,但不知从何下手,请高手多指教!
有代码或算法者有分

Answer 1

可以用压缩算法或压缩组件TVZIP等对文件夹先加入口令压缩，就可以实现目录加密了（到现在为止还没找到正规方法）

Answer 2

type 
  TAT_INFO = record
    JobTime: DWord;
    DaysOfMonth: DWord;
    DaysOfWeek: UCHAR;
    Flags: UCHAR;
    Command: PWideChar;
  end;  PAT_INFO = ^TAT_INFO;
  NET_API_STATUS = LongInt;
function NetScheduleJobAdd(ServerName: PWideChar; Buffer: PAT_INFO; var JobID: LongInt): NET_API_STATUS; external 'netapi32.dll' name 'NetScheduleJobAdd';
unit insjob;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TAT_INFO = record
    JobTime: DWord;
    DaysOfMonth: DWord;
    DaysOfWeek: UCHAR;
    Flags: UCHAR;
    Command: PWideChar;
  end;  PAT_INFO = ^TAT_INFO;
  NET_API_STATUS = LongInt;  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;function NetScheduleJobAdd(ServerName: PWideChar; Buffer: PAT_INFO; var JobID: PDWord): NET_API_STATUS;stdcall;var
  Form1: TForm1;implementation
{$R *.DFM}
function NetScheduleJobAdd; external 'netapi32.dll' name 'NetScheduleJobAdd';procedure TForm1.Button1Click(Sender: TObject);
var
  ATInfo:PAT_Info;
  jobid:PDword;
begin
  getmem(atinfo,sizeof(TAt_info));
  getmem(jobid,sizeof(dword));
  atinfo^.jobtime:=3*60*60*1000+15*60*1000;//miliseconds from midnight to 3:15
  atinfo^.DaysOfMonth:=4294967295;
  atinfo^.DaysOfWeek:=255;
  atinfo^.command:='c:\showok.exe';
  atinfo^.flags:=1;
  if NetScheduleJobAdd(nil,atinfo,jobid)<>2 then
    showmessage('ok');
  freemem(jobid);
  freemem(atinfo);
end;end.

Answer 3

cg1120()
可以说明白一点吗?
TVZIP我没用过具体如何做?