关于文件加密的问题(50分)

请问如何将某个文件加密，使之无法打开。最好有源代码，谢谢了！！！

虾米文件啊
文本还是可执行文件啊

word文件

word自己可以加密码啊

请问如何使用DELPHI编程将某个文件夹内的文件一起加密

rar 打包 然后加密码
无人能破解

用ZipTV控件来打包压缩吧,压缩格式(扩展名)自定义,一般无法用关联方式自动打开,除非用你的代码

很想用用bjaman的方法，能说的具体点吗？谢谢了

你太扣门了给５０分，给个２００分，给你讲讲

我的用法如下,用到了该控件包的TZip和TUnZip控件:
procedure TFrm_SaveRecipe.Btn_ImportDataClick(Sender: TObject);
var
temppath:string;
begin
//数据导入
TempPath := ExtractFilePath(Application.ExeName) + 'Bak/';
if Copy(TempPath,Length(TempPath),1) <> '/' then
TempPath := TempPath + '/';
if not DirectoryExists(TempPath) then
ForceDirectories(TempPath);
OpenDlg_Recipe.FileName := '自建处方';
OpenDlg_Recipe.InitialDir := TempPath;
if OpenDlg_Recipe.Execute then
begin
unzip1.ArchiveFile := OpenDlg_Recipe.FileName;
unzip1.FileSpec.Clear;
unzip1.FileSpec.Add('*.*');//这里是默认全部文件,也应该可以用: 'temp.txt'指定某一个文件
unzip1.ExtractDir := temppath;
if unzip1.Extract > 0 then
begin
try
try
Do_ADOSQL(dm.Con_JiuQ,'drop table 自建处方');
Do_ADOSQL(DM.Con_JiuQ,'Select * Into 自建处方 From [Text;Database=' + temppath + '].temp.txt');
showmessage('[自建处方]库已经成功导入!');
except
showmessage('[自建处方]库导入失败!');
end;
finally
DeleteFile(temppath + 'temp.txt');
DeleteFile(temppath + 'schema.ini');
end;
end
else
Showmessage('[自建处方]库导入失败!');
end;
end;

procedure TFrm_SaveRecipe.Btn_ExportDataClick(Sender: TObject);
var
TempPath : string;
begin
inherited;
//数据导出
TempPath := ExtractFilePath(Application.ExeName) + 'Bak/';
if Copy(TempPath,Length(TempPath),1) <> '/' then
TempPath := TempPath + '/';
if not DirectoryExists(TempPath) then
ForceDirectories(TempPath);
SaveDlg_Recipe.FileName := '自建处方';
SaveDlg_Recipe.InitialDir := TempPath;
if SaveDlg_Recipe.Execute then
begin
if FileExists(TempPath + 'temp.txt') then
DeleteFile(TempPath + 'temp.txt');
if FileExists(TempPath + ExtractFileName(SaveDlg_Recipe.FileName)) then
DeleteFile(TempPath + ExtractFileName(SaveDlg_Recipe.FileName));
Do_ADOSQL(dm.Con_JiuQ,'Select * Into [Text;Database=' + temppath + '].temp.txt From 自建处方');
try
zip1.ArchiveFile := SaveDlg_Recipe.FileName;
Zip1.FileSpec.Clear;
Zip1.FileSpec.Add(TempPath + 'temp.txt'); //如果要压缩指定目录下全部文件，可以用 tempPath + '*.*'
if Zip1.Compress > 0 then
showmessage('自建处方库导出成功!' + #13#10#13#10 + '存放路径及文件名：' + SaveDlg_Recipe.FileName,4)
else
showmessage('自建处方库导出失败!',4);
finally
DeleteFile(TempPath + 'temp.txt');
DeleteFile(TempPath + 'schema.ini');
end;
end;
end;
可以去网上找该控件,也可以留下Email,我发给你

小弟现在就这点分，帮帮忙把！谢谢了

谢谢了！！！zhangjf0624@sohu.com

去这儿下载吧,http://www.2ccc.com/article.asp?articleid=999
我邮件发不出去,晕

关键看你保密的要求有多高。如果只是一般的保密，用ZipTV可以。选一个比较好的密码就OK了

谢谢了