各位老大,谁肯指教一下呢!如果点鼠标同时选中多个文件时,该用什么函数把全部文件调入程序呢? 在点击鼠标右键的时候,调出程序的同时也就把这些文件调入程序。在没点击鼠标右键时,程序是没有打开的。怎么样才能判断鼠标选中了几个文件,而文件名又分别是什么呢? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 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只能得到几个文件中的一个文件的路径名字,其他的都得不到。到底怎样才能得到这几个文件得路径和名字? EOleException 灾难性故障 热键注册的问题,不响应热键!~ delphi 弹出窗口 初学Delphi数据库编程,有几个问题请教一下 字符串比较问题 ■■如何在delphi中显示动画??■■ delphi in a nutshell《delphi技术手册》下载要的快来下 难题!!!关于WORD的一些问题? 为什么这里的帖子变这么少了? 急死了,都三天了,一点头绪都没有,怎么办???高分相送... 请教绘图问题 求助:一段Delphi代码是什么意思,想转成java,谢谢
if FileExists(ParamStr(i)) then CheckOpenFile(ParamStr(i));
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)返回
选择的第一个文件,依次类推。
其实很多东西是操作系统完成的。比如说,你选择了很多文件,并点击右键菜单,操作系统则负责打开你的关联程序,并把所选择的文件作为参数传给你,你就可是通过上述的两个函数来处理。