现在一表格,表格中的每一行是放在INTERNET服务器空间中的PDF文件的文件名,如何通过双击表格中的一行,打开应对应的PDF文件? 我在本地是如下代码:
procedure TfmInvestReport.DBReportDblClick(Sender: TObject);
var
sFileName: string;
begin
sFileName := ''; begin
sFileName := ExtractFileDir(application.ExeName) + '\report\' + DBReport.Fields[1].Text + '.PDF';
shellexecute(handle, 'open', pchar(sFileName), nil, nil, SW_SHOW);
end;
end;
procedure TfmInvestReport.DBReportDblClick(Sender: TObject);
var
sFileName: string;
begin
sFileName := ''; begin
sFileName := ExtractFileDir(application.ExeName) + '\report\' + DBReport.Fields[1].Text + '.PDF';
shellexecute(handle, 'open', pchar(sFileName), nil, nil, SW_SHOW);
end;
end;
解决方案 »
- TWndMethod对应的组件是哪个?
- 难道Inno Setup不可以在"开始菜单"里制作删除接口?(超级郁闷..........)
- 把数据库由sql server改成access后出现“标准表达式中数据类型不匹配”?
- 请教:如何得到开始->程序 下的所有菜单项?谢谢。
- 一个简单的关于FastReport的问题?在线等待!
- 关于数据库连接的问题,用ConnectionString可以连上sql server 2k,可是打开窗体时出错了?
- delphi 能定义#define RGB(r,g,b) ..........类似的宏吗?
- 这个dll的加栽是怎么高的!?
- 求助:读取某进程内存块数据
- 用sql语言的一个小问题
- FastReport 使用问题,请求高手指点!
- 如何让FastReport里可以使用GetFieldValue!
shellexecute(handle, 'open','http://www.csdn.net/test.pdf', nil, nil, SW_SHOW);