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;文件的路径如何写?
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;文件的路径如何写?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货