procedure TForm1.Button1Click(Sender: TObject);
FilePath, Params, Operation, Directory:
string
;
begin
FilePath :=
'C:\example.pdf'
;
Params :=
'/p'
;
Operation :=
'print'
;
Directory :=
'C:\'; // PDF 文件所在目录
ShellExecute(Handle, PChar(Operation), PChar(FilePath), PChar(Params), PChar(Directory), SW_HIDE);
在这个示例中，我们使用
ShellExecute
函数来启动默认的 PDF 阅读器，并使用
/p
参数打印 PDF 文件。
Operation
参数指定打印操作，
FilePath
参数指定 PDF 文件的路径，
Params
参数指定打印命令行参数，
Directory
参数指定 PDF 文件所在的目录。
在
ShellExecute
函数中，我们还可以设置第五个参数
SW_HIDE
，来隐藏打印窗口，以便更好地集成到你的应用程序中。
希望这个示例能够帮助你使用 Delphi 打印 PDF 文件。
