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

[ann790914]

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
---------------------------

[ann790914]

紧急求助；兄弟们帮帮忙！

[柯本]

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

[柯本]

ParamStr(1)就可以了

[ann790914]

搞定；谢谢了；

[ann790914]

更新过版本后问题消失；谢谢楼上了；

[ann790914]

麻烦帮忙再给解决一下：
怎么得到函数winexec调用过程中传入的参数

譬如： winexec('filename 5',sw_show);
我怎么得到这个数字5

[ann790914]

麻烦帮忙再给解决一下：
怎么得到函数winexec调用过程中传入的参数

譬如： winexec('filename 5',sw_show);
我怎么在被调用的可执行文件filename中得到这个数字5并根据数字来做一些响应