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

[albelg]

Hola a todos los colegas el club. necesito hacer un programita que de desde delphi me abra una aplicacion.exe y que esta ultima abra dentro de la ventana de mi programita.
lo que tengo es lo siguiente. gracias de antemano

Código Delphi [-]
procedure tform1.buttonclick(sender:tobject); 
var
 operacion,nombre,parametro,path:string;
begin     
  operacion:='open'; 
  nombre:='MMLCM.exe';
  parametro:='C:\WINDOWS\WIN.INI'; 
  path:='C:\Program Files\DIAX-OM\PROGRAM';
  shellexecute(handle,pchar(operacion),pchar(nombre),pchar(parametro),pchar(path),sw_shownormal);   
end;

[[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