consegui solucionar...
MsgRun( 'Abrindo Arquivo PDF. Aguarde por favor...','Aguarde ',{|| ExecWin('acrord32.exe '+_decript+'\'+cProcdec+'.pdf') } )
Function ExecWIN( cComando ) Local oShell, RET oShell := CreateObject( "WScript.Shell" ) RET := oShell:Run( cComando, 0, .T. ) oShell := NIL Return iif( RET = 0, .T., .F. ) E agradeço muito a dica acima, foi porreta.
Emerson