将PDF文件打包在资源文件,如何不用另存,直接用外部PDF阅读器打开?
procedure TForm1.Button1Click(Sender: TObject);
var
Res :TResourceStream;
begin
Res := TResourceStream.Create(HInstance,'PDF2','PDF');
Res.SaveToFile('c:\s.pdf');
Res.Free; ShellExecute(Handle, 'open',‘PDF阅读器所在路径’,c:\s.pdf', nil, SW_SHOWNORMAL);end;现在的实现方法为把资源文件中的PDF另存至硬盘,然后启动PDF阅读器从硬盘打开PDF文件,如何不用保存至硬盘,直接打开?或保存在内存中打开?
procedure TForm1.Button1Click(Sender: TObject);
var
Res :TResourceStream;
begin
Res := TResourceStream.Create(HInstance,'PDF2','PDF');
Res.SaveToFile('c:\s.pdf');
Res.Free; ShellExecute(Handle, 'open',‘PDF阅读器所在路径’,c:\s.pdf', nil, SW_SHOWNORMAL);end;现在的实现方法为把资源文件中的PDF另存至硬盘,然后启动PDF阅读器从硬盘打开PDF文件,如何不用保存至硬盘,直接打开?或保存在内存中打开?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货