如何下载局域网中某目录下的所有文件

Question

请教一个问题,
我用IIS建了一个虚拟目录,想用DEPHI编写一个从局域网上访问该目录中的其中一个DOWNLOAD目录下的所有文件,不知要如何写这函数,还请大侠指教一下.
例,本人要下载HTTP://192.168.1.12/soft/download/ 下的所有文件！ 
   HTTP://192.168.1.12/soft/ 为本人建立的内部网络的网页虚拟路径

Answer 1

uses
  UrlMon
function DownloadFile(Source,Des:string):Boolean;
begin
  Try
    result:=URLDownLoadFile(nil,PChar(Source),PChar(Des),0,nil)=0
  Except
    result:=false;
  End;
end;