IdFTP控件,这函数如何调用?看不懂

IdFTP控件,这函数怎么调用???看不懂
IdFTP控件,这函数怎么调用???看不懂





RootDir = 要删除的根目录，一般情况下 RemoteDir 与 RootDir 相等}
procedure TForm1.FTP_DeleteAllFiles(var idFTP : TIdFtp;RemoteDir,RootDir : string);
label Files;
var
i,DirCount : integer;
Temp : string;
begin
  idFTP.ChangeDir(RemoteDir);
  if Pos(RootDir,idFTP.RetrieveCurrentDir) = 0 then Exit;
  Files :
  idFTP.List(nil);
  DirCount := idFTP.DirectoryListing.Count ;
  while DirCount = 0 do
  begin
  Temp := idFTP.RetrieveCurrentDir;
  idFTP.ChangeDirUp;
  idFTP.RemoveDir(Temp);
  idFTP.List(nil);
  DirCount := idFTP.DirectoryListing.Count ;
  for i := 0 to DirCount - 1 do
  if idFTP.DirectoryListing[i].FileName = RootDir then Exit;
  end;
  
  for i := 0 to DirCount - 1 do
  begin
  if Pos(RootDir,idFTP.RetrieveCurrentDir) = 0 then Break ;
  if idFTP.DirectoryListing[i].ItemType = ditDirectory then
  begin
  FTP_DeleteAllFiles(idFTP,idFTP.DirectoryListing[i].FileName,RootDir);
  end else begin
  idFTP.Delete(idFTP.DirectoryListing[i].FileName);
  goto Files ;
  end;
  end;
  
end;

------解决方案--------------------

探讨

有一个API函数 shellexcute 这个函数可以调用任何的程序 甚至可以识别http ftp等 你可以用它来调用播放flash的程序来打开SWF 例如调用macromedia的flash播放器来打开swf 下面是代码你看看Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal h……

------解决方案--------------------
简单的用它上传个文件到ftp空间是很容易，但如果有多个文件一起上传想加上上传进度，就有点麻烦了。