H
huangbaili
Unregistered / Unconfirmed
GUEST, unregistred user!
现有一表格，表格中的每一行对应的是放在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;