ShellExecute函数能不能使用相对路径?如何实现? 如题 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 LLanV报表工具(打印预览软件)--免费使用--免费升级一流的打印预览软件超越水晶报表,是我们的目标特别适合用于轻松快速解决大量报表的情形彻底解除程序员负担,极大提高用户设定灵活性经过了10000行以上数据的压力测试,性能优良!其中一部分功能如下: 1.支持资料卡(比如:个人简历),表单(比如:销售定单),报表(比如:销售月报表)的预览打印2.不用任何设定,就可以默认产生专业的页面3.用户可以一次性设定企业标准样式(比如:公司标志,台头)4.支持文本,线条,方框,图片,等报表元素5.对各报表元素和报表区域等提供丰富的属性6.用户可以在运行期间编辑文本,线条,方框,图片,明细列, 操作简单7.支持同一列相同数据合并成一个格8.可以在运行期间增删,调换明细列9.提供多种报表风格10.支持页合计,总计11.支持的套打报表12.支持MIS开发的各种开发工具:如VC、VB、Delphi等13.可以直接连接数据库14.用户可以把设定后的报表样式保存为报表样式文件15.报表头和报表尾均可多于一页16.报表样式文件格式完全开放17.可以实现中国式复杂报表样式18.无须编程请发EMAIL给[email protected] var ExePath:String;Begin ExePath:=ExtractFilePath(application.ExeName); ShellExecute(Handle,'open',ExePath + YourFileName ,nil,nil,SW_SHOWNORMAL);end; 没听过这种方法!这是一个API啊!参数里也没有说可以使用相对路径啊! 你试试就知道咯 把EXE放到WINDOWS文件夹中 然后只写文件名 看看如何 可以 ExePath:=ExtractFilePath(application.ExeName); ShellExecute(Handle,'open',ExePath + YourFileName ,nil,nil,SW_SHOWNORMAL); 通过ExtractFilePath就不用使用相对路径了吧,你要什么样子的呢? ShellExecute不能使用相对路径。不过由于路径只是字符串,所以我们可以在运行时通过自由设定组合,实现相对路径的目的。如楼上大家所说 //取根目录,也就是应用程序所在目录 ExePath:=ExtractFilePath(application.ExeName); //YouFileName是你的相对路径+文件名 ShellExecute(Handle,'open',ExePath + YourFileName ,nil,nil,SW_SHOWNORMAL); 请教关于dbplanner问题 关于过程调用的问题,带参数。帮忙解答 一个难题,求高手帮忙!!在线!! FTP自动更新程序,怎样把ini文件集成到程序内部。(在线等) 关于Tcontrol的parent属性的问题,有点难度,欢迎挑战,在线等! 关于如何创建可视化控件问题 如何理解delphi的keypress、keyup 、keydown 事件??? 欢迎大家到c++builder版做客!!!散分100 谁知道哪里可以下载到Delphi7,请告诉我!!!! 讲问大家知道DELPHI COM深入编程这本书的源码吗? 请问在rave报表中如何使数据区显示的数据加上表格线? 有没有关于事务的源码
超越水晶报表,是我们的目标
特别适合用于轻松快速解决大量报表的情形
彻底解除程序员负担,极大提高用户设定灵活性
经过了10000行以上数据的压力测试,性能优良!其中一部分功能如下:
1.支持资料卡(比如:个人简历),表单(比如:销售定单),报表(比如:销售月报表)的预览打印
2.不用任何设定,就可以默认产生专业的页面
3.用户可以一次性设定企业标准样式(比如:公司标志,台头)
4.支持文本,线条,方框,图片,等报表元素
5.对各报表元素和报表区域等提供丰富的属性
6.用户可以在运行期间编辑文本,线条,方框,图片,明细列, 操作简单
7.支持同一列相同数据合并成一个格
8.可以在运行期间增删,调换明细列
9.提供多种报表风格
10.支持页合计,总计
11.支持的套打报表
12.支持MIS开发的各种开发工具:如VC、VB、Delphi等
13.可以直接连接数据库
14.用户可以把设定后的报表样式保存为报表样式文件
15.报表头和报表尾均可多于一页
16.报表样式文件格式完全开放
17.可以实现中国式复杂报表样式
18.无须编程请发EMAIL给[email protected]
ExePath:String;
Begin
ExePath:=ExtractFilePath(application.ExeName);
ShellExecute(Handle,'open',ExePath + YourFileName ,nil,nil,SW_SHOWNORMAL);
end;
ExePath:=ExtractFilePath(application.ExeName);
ShellExecute(Handle,'open',ExePath + YourFileName ,nil,nil,SW_SHOWNORMAL);
如楼上大家所说
//取根目录,也就是应用程序所在目录
ExePath:=ExtractFilePath(application.ExeName);
//YouFileName是你的相对路径+文件名
ShellExecute(Handle,'open',ExePath + YourFileName ,nil,nil,SW_SHOWNORMAL);