测试Delphi的批量打印功能，这个批量打印据说用着很顺手，可批量打印文件，同时你也可研究下，Delphi开发环境下，如何实现批量打印功能。相关代码：
procedureTForm1.Button1Click(Sender:TObject);
var
i:Integer;
begin
fori:=0toShellListView1.Items.Count-1do
begin
ShellExecute(handle,'print',PChar(ShellListView1.Folders[i].PathName),0,0,1
