delphi2007 教程

delphi2007 教程

首页 新随笔 联系 聚合 管理
  1013 Posts :: 0 Stories :: 28 Comments :: 0 Trackbacks
各位老大,谁肯指教一下呢!如果点鼠标同时选中多个文件时,该用什么函数把全部文件调入程序呢? Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiAPI/html/delphi_20061127214337160.html
在点击鼠标右键的时候,调出程序的同时也就把这些文件调入程序。在没点击鼠标右键时,程序是没有打开的。怎么样才能判断鼠标选中了几个文件,而文件名又分别是什么呢?      
 

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

通过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)返回  
  选择的第一个文件,依次类推。  
      其实很多东西是操作系统完成的。比如说,你选择了很多文件,并点击右键菜单,操作系统则负责打开你的关联程序,并把所选择的文件作为参数传给你,你就可是通过上述的两个函数来处理。

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

posted on 2008-11-27 21:13 delphi2007 阅读(255) 评论(0)  编辑 收藏 引用
只有注册用户登录后才能发表评论。