一个打开对话框的操作(5分)

我在程序中调用了一个打开对话框的操作
od1: TOpenDialog;
并把 ofAllowMultiSelect设置为TRUE；
但是在我调试程序却发现，我选中的三个文件，
然而OD1.FILENAME值却只有一个文件；
错误何在？

比如：我在打开对话框中选择了file1.txt,file2.txt
file3.txt所选目录是c:/myfolder
而返回的OD1.FILENAME值只有c:/myfolder/file1.txt;
错误何在？

我知道正确效果应该是c:/myfolder/file1.txt file2.txt file3.txt
但我不知道错在哪里，望指教？

gz

用od1.files

你可能只用了FileName提取了文件名，你应该用Files提取所有的文件名。

up

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
opendialog1.Execute;
for i:=0 to opendialog1.Files.Count-1 do
listbox1.Items.Add(opendialog1.Files.Strings)
end;

不过我还是认为
网络蚂蚁的在IE右键的“download by netants"的click事件
很难做因为他需要用VB脚本调用动态连接库如：
<script language="VBScript">

On Error Resume Next
set NetAntsApi = CreateObject( "NetAnts.API" )
if err<>0 then
Alert("NetAnts not properly installed on this PC!")
else
set links = external.menuArguments.document.links
ReDim params(links.length*2)
params(0)=external.menuArguments.document.Url
for i = 0 to links.length-1
params(i*2+1)=links(i).href
params(i*2+2)=links(i).innerText
next
NetAntsApi.AddUrlList params
end if
</script>
我该去哪里查找这种技术资料，望赐教！