Imprimindo Documento PDF de forma transparente ao usuário

Segue:

uses
ShellApi

procedure ImprimePdf;
var
Pdir: Pchar;
begin
GetMem(pDir,256);
StrPCopy(pDir, ´c:\documento.pdf´); //caminho completo mais nome do arquivo
ShellExecute(0, ´print´, ´c:\documento.pdf´, nil, Pdir, SW_ShowNA);
FreeMem(pdir,256);
end;