测试Delphi的批量打印功能.rar

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