IDFtp.directorylisting属性出错；紧急求助

Question

procedure TMainForm.ChageDir(DirName: String);
Var
  LS: TStringList;
begin
  LS := TStringList.Create;
  try
    SetFunctionButtons(false);
    IdFTP1.ChangeDir(DirName);
    IdFTP1.TransferType := ftASCII;    CurrentDirEdit.Text := IdFTP1.RetrieveCurrentDir;    DirectoryListBox.Items.Clear;
    IdFTP1.List(LS);
    DirectoryListBox.Items.Assign(LS);
    if DirectoryListBox.Items.Count > 0 then
      if AnsiPos('total', DirectoryListBox.Items[0]) > 0 then DirectoryListBox.Items.Delete(0);
  finally
    SetFunctionButtons(true);
    LS.Free;
  end;
end;上述过程；执行时报错：
错误提示为：---------------------------
Debugger Exception Notification
---------------------------
Project FTPDemo.exe raised exception class EIdInvalidFTPListingFormat with message 'Unknown FTP listing format'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------

Answer 1

同样的问题
http://community.csdn.net/Expert/topic/4506/4506759.xml?temp=.1735193
我估计两个可能
1.你的indy版本本身的BUG
2.你的ftp服务器的问题

Answer 2

麻烦帮忙再给解决一下：
怎么得到函数winexec调用过程中传入的参数譬如： winexec('filename 5',sw_show);
我怎么得到这个数字5

Answer 3

麻烦帮忙再给解决一下：
怎么得到函数winexec调用过程中传入的参数譬如： winexec('filename 5',sw_show);
我怎么在被调用的可执行文件filename中得到这个数字5并根据数字来做一些响应