procedure TfmInvestReport.DBReportDblClick(Sender: TObject);
var
sFileName: string;
begin
sFileName := ''; begin
// sFileName := ExtractFileDir(application.ExeName) + '\report\' + DBReport.Fields[1].Text + '.PDF';
sFileName := 'http://www.xxxxxxxx.cn/xxxxx/' + DBReport.Fields[1].Text + '.PDF';
// shellexecute(handle, 'open', pchar(sFileName), nil, nil, SW_SHOW);
ShellExecute(Application.Handle, 'Open', 'AcroRd32.exe', PChar(sFileName),nil,SW_SHOWNORMAL);
end;
end;我不想让PDF文档在IE中显示,而是启起PDF阅读器进行阅读。但文件名的路径格式不知如何写?
var
sFileName: string;
begin
sFileName := ''; begin
// sFileName := ExtractFileDir(application.ExeName) + '\report\' + DBReport.Fields[1].Text + '.PDF';
sFileName := 'http://www.xxxxxxxx.cn/xxxxx/' + DBReport.Fields[1].Text + '.PDF';
// shellexecute(handle, 'open', pchar(sFileName), nil, nil, SW_SHOW);
ShellExecute(Application.Handle, 'Open', 'AcroRd32.exe', PChar(sFileName),nil,SW_SHOWNORMAL);
end;
end;我不想让PDF文档在IE中显示,而是启起PDF阅读器进行阅读。但文件名的路径格式不知如何写?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货