![Rank: 15](images/default/star_level3.gif) ![Rank: 15](images/default/star_level3.gif) ![Rank: 15](images/default/star_level3.gif) ![Rank: 15](images/default/star_level2.gif) ![Rank: 15](images/default/star_level1.gif)
- 帖子
- 3852
- 积分
- 13044
- 威望
- 16780
- 金钱
- 36761
- 在线时间
- 1139 小时
![管理组 管理组](images/common/medal1.gif) ![高手勋章 高手勋章](images/common/medal2.gif) ![核心成员 核心成员](images/common/medal4.gif) ![原创奖章 原创奖章](images/common/medal5.gif) ![帅哥勋章 帅哥勋章](images/common/medal9.gif) ![突出贡献奖 突出贡献奖](images/common/2.gif) ![优质人品奖章 优质人品奖章](images/common/6.gif) ![论坛元老 论坛元老](images/common/7.gif) ![管理组成员 管理组成员](images/common/8.gif) ![技术组成员 技术组成员](images/common/9.gif)
|
2楼
发表于 2008-7-2 20:16
| 只看该作者
可以用winexec 或者 shellexecute
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:=extractfilepath(application.ExeName);
showmessage(s);
end;
运行的话是
winexec('s + filename',sw_show);
这样
或者可以调用shellapi
shellexecute(handle,'open','s+filename',nil,nil,sw_show);
参数不知道有没有记错 |
|