Duda con Winexec
 

Hola, mi problema es que ejecuto la orden:
WinExec(PChar('C:\Archivos de programa\Adobe\Acrobat 7.0\Reader\AcroRd32.exe '+Get_ruta_pdfs+'\'+nom_archivo),SW_HIDE)
para abrir un documento pdf segun la ruta obtenida y quiero que si no encuentra el pdf me muestre un mensaje, he probado con esto pero no funciona:
if WinExec(PChar('C:\Archivos de programa\Adobe\Acrobat 7.0\Reader\AcroRd32.exe '+Get_ruta_pdfs+'\'+nom_archivo),SW_HIDE)= ERROR_FILE_NOT_FOUND then
ShowMessage('Ruta no encontrada');
¿en que falla?

Prueba con ésta:

Código Delphi [-]
  ShellExecute(Handle,
             'open',
             Get_ruta_pdfs+'\'+nom_archivo,     // ruta completa
             nil,
             nil,
             SW_SHOW);

y añade ShellAPI al USES.

Si quieres capturar el error (perdón que no había leído completo el mensaje anterior):

Código Delphi [-]
var
  i:HWND;
begin
  i := ShellExecute(Handle,
             'open',
             'C:\AEAT\RENT2004\mrenta2004_2.pdf',
             nil,
             nil,
             SW_SHOW);
  if (i < 32) then begin
    MessageDlg('Error, no se ha encontrado el fichero', mtError, [mbOK], 0);
  end;

Cuando encuentra el pdf lo abre, mi problema es que quiero que muestre un mensaje de error si no lo encuentra.

Ya he corregido el mensaje anterior con esa parte; Inicialmente no lo había puesto.

Gracias ;)