Abrir un Programa Externo dentro de una Ventana de una Aplicación

[[duilioisola]]

Quizás esto te sirva: http://www.clubdelphi.com/foros/showthread.php?t=50300

[[duilioisola]]

Aquí hay otra opción http://stackoverflow.com/questions/7...-a-delphi-form

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Rec: TShellExecuteInfo;
const
  AVerb = 'open';
  AParams = '';
  AFileName = 'Notepad.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);

  fNotepadHandle := Windows.FindWindow( 'Notepad', nil );
  Windows.SetParent( fNotepadHandle, Handle );

  Resize;
  ShowWindow(fNotepadHandle, SW_SHOW);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  if IsWindow(fNotepadHandle) then begin
    SetWindowPos(fNotepadHandle, 0, 0, 0, ClientWidth, ClientHeight,
      SWP_ASYNCWINDOWPOS);
  end;
end;

[albelg]

gracias hermano por responder pero me da error en la linea:

Código Delphi [-]
  fNotepadHandle := Windows.findwindow('notepad',nil);

?que tipo de variable es fnotepadhandle?

[Casimiro Notevi]

Recuerda poner los tags al código fuente, ejemplo:



Gracias

[aposi]

Empezado por albelg

gracias hermano por responder pero me da error en la linea:

fNotepadHandle:=Windows.findwindow('notepad',nil);

?que tipo de variable es fnotepadhandle?

Código Delphi [-]
  fNotepadHandle : HWND;

[albelg]

ya me corrio el programa, pero lo que necesito es que el .exe me abra dentro de mi formulario y no de manera independiente. gracias de antemano

[[duilioisola]]

A mi si que me funciona correctamete:
Temas a tener en cuenta:
fNotepadHandle es del tipo HWND y debe ser global al formulario en el que se trabaja.
En mi caso

Código Delphi [-]
type
  TFMPruebas = class(TG2KForm)
    ...
  private
     { Private declarations }
     fNotepadHandle : HWND;
  public
     { Public declarations }
  end;

Yo he creado un botón y un panel en donde tiene que estar el Notepad.

El botón tiene el código que enivé y rellena la variable fNotepadHandle.
El panel tiene e código de OnResize que utiliza la variable global fNotepadHandle.

[albelg]

disculpa si mi pregunta es de novato pero como tu creas el panel para montar el notepad. gracias y por favor no pierda la paciencia conmigo