我加到循环中这句话 可是还是不起作用啊。。。。。。。
for i := 0 to ListBox1.Items.count - 1do
begin
// 判断该文件是否存在
if not FileExists(ListBox1.Items.Strings) then
begin
ListBox2.Items.Add('文件不存在)');
end;
Application.ProcessMessages;
if(FileExists(ListBox1.Items.Strings)) then
begin
ListBox2.Items.Add('正在加密文件'+ListBox1.Items.Strings+'......');
try
// 调用加密函数
RSAEncryptProcess(ListBox1.Items.Strings);
ListBox2.Items.Add('文件加密成功！');
except
on E: Exceptiondo
ListBox2.Items.Add('文件加密失败('+E.Message+')');
end;
end;
end;
