Abrir archivo de Word pero incrustado en Form

[Neftali [Germán.Estévez]]

Busca en la página de Federico, hay ejemplos de cómo abrir una aplicación dentro de un formulario de Delphi.

[mak8888]

Hola. Estoy viendo el programa de ejemplo "chproc.zip" aunque no consigo hacerlo funcionar dado que no veo que pase nada. Sigo haciendo pruebas a ver si descubro que pasa.
Gracias

[Neftali [Germán.Estévez]]

Empezado por mak8888

Estoy viendo el programa de ejemplo "chproc.zip" aunque no consigo hacerlo funcionar dado que no veo que pase nada.

Si pulsas el botón se ejecuta una aplicación externa (en el caso del ejemplo el notepad de Windows) y esa aplicación se crea (o mejor dicho a posteriori de incrusta) en el formulario que tienes en la pantalla, buscando la ventana de la aplicación creada y cambiandole el Parent.

Yo la he compilado y me funciona a la perfección.

[mak8888]

Pues a mi el notepad no me aparece en ningún sitio. Ni en el formulario, ni fuera de el. Estoy usando Delphi 7 y me sucede lo mismo tanto en Vista como en XP
El programa se ejecuta, pulso el botón y no sucede nada.
Gracias por tus respuestas.

[Neftali [Germán.Estévez]]

Si revisas el código llegarás a esta línea:

Código Delphi [-]
  Win32Check(CreateProcess(nil, 'NOTEPAD.EXE', nil, nil, FALSE,
                    CREATE_NEW_CONSOLE, nil, nil, StartInfo, ProccesInfo));

Sustituye NOTEPAD.EXE por cualquier otro programa que quieras; Puedes incluir el path para mayor seguridad.

Otra opción es sustituir el procedimiento entero por este otro, a ver si este te devuelve algun mensaje de error:

Código Delphi [-]
procedure TfrmMain.Button1Click(Sender: TObject);
var
  StartInfo: STARTUPINFO;
  ProccesInfo: PROCESS_INFORMATION;
  hNotepad: HWND;
begin
  ZeroMemory(@StartInfo, SizeOf(STARTUPINFO));
  with StartInfo do
  begin
    cb := SizeOf(STARTUPINFO);
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := SW_HIDE;
  end;

  try
    Win32Check(CreateProcess(nil, 'c:\winnt\_NOTEPAD.EXE', nil, nil, FALSE,
                             CREATE_NEW_CONSOLE, nil, nil, StartInfo, ProccesInfo));

    hNotepad := FindThreadWindow(ProccesInfo.dwThreadId, 0, nil, nil);
    if hNotepad <> 0 then begin
      { La muestra despues para evitar que se vea en equipos lentos }
      Windows.SetParent(hNotepad, sbSpool.Handle);
      ShowWindow(hNotepad, SW_SHOW);
    end
    else begin
      MessageDlg('No se ha encontrado la aplicación funcionando...', mtError, [mbOK], 0);
    end;
  except
    on E:Exception do begin
      MessageDlg(Format('Se ha producido un error: %s' ,[E.Message]), mtError, [mbOK], 0);

    end;
  end;
end;

[mak8888]

Según el administrador de tareas, el notepad se ejecuta, aunque yo no lo veo por ningún sitio, por tanto no debe de ser problema de la ruta
P.D. Escribiendo el código que me pones arriba, cambiando evidentemente la ruta, pasa lo mismo. Se lanza un proceso notepad que no veo por ningún lado :-S
Lo raro es que a ti te funcione el mismo código.
P.D.2. Lo he probado en el PC de un compañero del trabajo y a el le funciona. Ahora sí no entiendo nada. En fin, gracias por todo. Seguiré haciendo pruebas.

[Neftali [Germán.Estévez]]

Coloca esto debajo del ShowWindow para posicionar la nueva ventana.
Prueba con otra aplicación que no sea el notepad.

¿Qué S.O. tienes? ¿Tenéis ambos el mismo?