Ayuda con el componente ActiveX de Adobe Reader

[Fran Moreno]

Antes que nada gracias por vuestro interés.
Respecto al mensaje de aviso que aparece, ya no es problema, se trata de una advertencia respecto al cumplimiento del estándar PDF/A, así que basta con crear el PDF sin ese estándar.
El problema más fastidioso es el de la barra flotante. Probaré lo que me dices, Neftalí, aunque no tengo ni idea de como integrar un programa externo en el formulario de mi programa, pero con los enlaces que me pones, no creo que tenga demasiado problema.
Gracias de nuevo. ¡Un saludo!

[Fran Moreno]

Vuelvo a entrar en este hilo después de unos meses, ya que pospuse las pruebas con SumatraPDF.
Ahora he hecho las pruebas, siguiendo los links que me dejó Neftalí y resulta que, o bien consigo visualizar SumatraPDF dentro de la ventana de mi aplicación, pero teniendo que abrir el archivo PDF manualmente, o bien consigo que se abra SumatraPDF y el archivo PDF, pero fuera de la aplicación.

El código que uso en el primer caso es este:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  Rec: TShellExecuteInfo; AFileName: String;
const
  AVerb = 'open';
  AParams = '';
  AFileName = 'C:\SumatraPDF\SumatraPDF.exe';
  ADir = '';
begin
  FillChar(Rec, SizeOf(Rec), #0);
  Rec.cbSize       := SizeOf(Rec);
  Rec.fMask        := SEE_MASK_NOCLOSEPROCESS;
  Rec.lpVerb       := PChar( AVerb );
  Rec.lpFile       := PChar( AfileName );
  Rec.lpParameters := PChar( AParams );
  Rec.lpDirectory  := PChar( Adir );
  Rec.nShow        := SW_HIDE;

  ShellExecuteEx(@Rec);
  WaitForInputIdle(Rec.hProcess, 5000);

  fSumatraHandle := FindWindow( nil, 'SumatraPDF' );
  Windows.SetParent( fSumatraHandle, Panel1.Handle );

  Resize;
  ShowWindow(fSumatraHandle, SW_SHOW);
  SetWindowPos(fSumatraHandle, 0, 0, 0, ClientWidth, ClientHeight, SWP_NOSENDCHANGING  );
end;

El código que uso en el segundo caso es este:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  ShellExecute(Handle, 'open',PChar('C:\SumatraPDF\SumatraPDF.exe'), PChar('c:\Ayuda.pdf'), nil, SW_SHOW) ;
  Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled:=false;
  fSumatraHandle := FindWindow( nil, 'SumatraPDF' );
  Windows.SetParent( fSumatraHandle, Handle );
  Resize;
  ShowWindow(fSumatraHandle, SW_SHOW);
  SetWindowPos(fSumatraHandle, 0, 0, 0, ClientWidth, ClientHeight, SWP_NOSENDCHANGING  );
end;

Lo cierto es que necesito conseguir que se abra SumatraPDF, que lo haga dentro del formulario de mi aplicación y que se abra el archivo PDF, pero no hay forma de que ocurran las tres cosas juntas.
Con el primer código, entiendo que no se abra el archivo, porque no está especificado por ningún sitio, pero en los links que me indicó Neftalí, no se especifica como hacerlo. He probado varias cosas y buscado más información al respecto, pero nada.
Y en el segundo código, no entiendo porque no se muestra SumatraPDF en el formulario de la aplicación llevando la misma línea de código para asignarle el parent, que en el primero.
Probé a cambiar

Código Delphi [-]
ShellExecute(Handle, 'open',PChar('C:\SumatraPDF\SumatraPDF.exe'), PChar('c:\Ayuda.pdf'), nil, SW_SHOW) ;

por

Código Delphi [-]
ShellExecute(Handle, 'open',PChar('C:\SumatraPDF\SumatraPDF.exe'), PChar('c:\Ayuda.pdf'), nil, SW_Hide) ;

para no mostrar la ventana de SumatraPDF hasta la línea donde se le asigna el parent, tal como en el código primero, pero nada de nada. También probé a poner el ShellExecute en el evento onShow del formulario, para asegurarme que SumatraPDF se ejecutaba después de aparecer el formulario de la aplicación, pero tampoco.
El timer lo puse para darle tiempo al formulario a mostrarse.

Un poco de ayuda no me vendría mal.

[Fran Moreno]

Bueno, parece que esta vez tuve suerte y acabo de solucionar el problema con SumatraPDF.
El problema estaba en que, por alguna razón que desconozco, en el segundo código, no valía con obtener el Handle de la ventana de sumatraPDF, a través del caption de la ventana, como en el primer código, sino que había que obtenerlo indicando en la función FindWindow, la clase. Lo averigüé probando y suerte que tengo un programita que hice con un código que encontré por ahí, que obtiene un listado de las clases en ejecución. La puse en la función FindWindow y funcionó correctamente.
Si alguien necesita el código del programita listador de clases, solo tiene que pedírmelo.
¡Un saludo!