Fórum Porque minha rotina ShellExecute não funciona? #299995

Estou tendo muitos problemas na execução de uma rotina para impressao... Já tentei executar-la com diversos parametros diferentes mas não obtive sucesso com nenhuma delas...
Tenho a seguinte rotina para impressão de arquivos...

if ShellExecute(0,PChar(´print´), PChar(ChangeFileExt(AArquivo, ´.pdf´)), ´´, ´´, SW_HIDE) <= 32 then
begin
...
Exit;
end;

Já tentei de diversas maneiras. Eis algumas de minhas tentativas:

if ShellExecute(0,´print´, PChar(ChangeFileExt(AArquivo, ´.pdf´)), PChar(sNomeImp), ´´, SW_HIDE) <= 32 then
...

if ShellExecute(0,PChar(´print´), PChar(ChangeFileExt(AArquivo, ´.pdf´)), PChar(sNomeImp),PChar(´C:\...´)´, SW_HIDE) <= 32 then

gostaria de saber se há algum macete para executar essa rotina pq como eu tentei não consegui o resultado esperado.

Agradeço desde já a atenção.