各位老大，谁肯指教一下呢！如果点鼠标同时选中多个文件时，该用什么函数把全部文件调入程序呢？

Question

在点击鼠标右键的时候，调出程序的同时也就把这些文件调入程序。在没点击鼠标右键时，程序是没有打开的。怎么样才能判断鼠标选中了几个文件，而文件名又分别是什么呢？  

Answer 1

for i:=1 to ParamCount do
   if FileExists(ParamStr(i)) then CheckOpenFile(ParamStr(i));

Answer 2

通过ParamCount可以得到参数的数目,使用方法如下所示:procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i:=1 to ParamCount do
  begin
    Caption := Caption + '-' + ParamStr(i);
  end;
end;函数function ParamCount: Integer;可让你知道选择了多少个文件(ParamCount-1个文件)同时函数function ParamStr(Index: Integer): string;可以让你得到选择文件的
文件名 ParamStr(0)返回你的可执行文件名(即Application.ExeName，ParamStr(1)返回
选择的第一个文件，依次类推。
  其实很多东西是操作系统完成的。比如说，你选择了很多文件，并点击右键菜单，操作系统则负责打开你的关联程序，并把所选择的文件作为参数传给你，你就可是通过上述的两个函数来处理。

Answer 3

老大们，你们的方法我都试过了， ParamStr只能得到几个文件中的一个文件的路径名字，其他的都得不到。到底怎样才能得到这几个文件得路径和名字？