|
  
- 帖子
- 3852
- 积分
- 13044
- 威望
- 16780
- 金钱
- 36761
- 在线时间
- 1139 小时
         
|
可以用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);
参数不知道有没有记错 |
|
发表于 2008-7-2 20:16
| 