Ejecutar Un Programa Windows Visible En Una Ventana

[ecfisa]

Empezado por MARIA_MAR

Muchas gracias Nelson, es justo lo que necesitaba.

Necesito saber otra cosa, ¿cómo puedo yo redimensionar la ventana en la que se ejecuta este programa Windows sin llegar a minimizarla?, pues a veces es demasiado grande y no me deja ver mi programa Delphi que queda detrás.

¿Se podria ejecutar dentro de un form de Delphi?.

Hola.

Form donde se incrustará la aplicación:

Código Delphi [-]
...
type
  TForm2 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    FHwnd: HWND;
  public
    property HandleToApp: HWND read FHwnd write FHwnd;
  end;

var
  Form2: TForm2;

implementation

procedure TForm2.FormCreate(Sender: TObject);
begin
  // propiedades configurables desde el Object Inspector
  BorderIcons:= [];
  BorderStyle:= bsSizeable;
  FormStyle  := fsStayOnTop;
end;

//...

procedure TForm2.FormDestroy(Sender: TObject);
begin
  if FHwnd <> 0 then
    SendMessage(FHwnd, WM_CLOSE, 0, 0);
end;

Form que lo invoca:

Código Delphi [-]
...
implementation 

uses Unit2; // Form donde abrirá la aplicación

function ProcessIDToWnd(const tagPID: WORD):HWND;
var
  aHWnd :HWND;
  aPID  :WORD;
begin
  Result  := 0;
  aPID    := 0;
  aHWnd := FindWindow(nil, nil);
  while aHWnd <> 0 do
  begin
    if GetParent(aHWnd) = 0 then
    begin
      GetWindowThreadProcessId(aHWnd, @aPID);
      if aPID = tagPID then
      begin
        Result := aHWnd;
        Break;
    end;
  end;
  aHWnd := GetWindow(aHWnd, GW_HWNDNEXT);
  end;
end;

function ExecuteApp(const CmdLine:string):HWND;
var
  PI :PROCESS_INFORMATION;
  SI :STARTUPINFO;
  RE :LONGBOOL;
begin;
  Result := 0;
  ZeroMemory(@PI, SizeOf(PI));
  ZeroMemory(@SI, SizeOf(SI));
  SI.cb := SizeOf(SI);
  RE := CreateProcessA(nil, PChar(CmdLine), nil, nil, True,
                       NORMAL_PRIORITY_CLASS, nil, nil, SI, PI);
  WaitForSingleObject(PI.hProcess, 150); // espera 150 ms 
  if RE then
  begin
    Result := ProcessIDToWnd(PI.dwProcessID);
    CloseHandle(PI.hThread);
    CloseHandle(PI.hProcess);
  end;
end;

// Crear form y llamar la aplicación externa
procedure TForm1.btAbrirFormClick(Sender: TObject);
begin
  Form2:=  TForm2.Create(Self);
  Form2.Show;
  FhWnd := ExecuteApp('calc.exe');  // Ejecuta calculadora de Windows
  if FhWnd <> 0 then
  begin
    Form2.HandleToApp := FhWnd;
    Windows.SetParent(FhWnd, Form2.Handle);
    Windows.MoveWindow(FhWnd, 0, 0, ClientWidth, ClientHeight, True);
    Windows.SetFocus(FhWnd);
  end
  else
    ShowMessage('Error al iniciar la aplicación');
end;
//...

Saludos.

[[nlsgarcia]]

MARIA_MAR,

Empezado por MARIA_MAR

¿cómo puedo yo redimensionar la ventana en la que se ejecuta este programa Windows sin llegar a minimizarla?

1- Con la función SetForegroundWindow se puede establecer el tamaño, posición y orden Z de una ventana en Windows

BOOL SetWindowPos(
    HWND hWnd, // handle of window
    HWND hWndInsertAfter, // placement-order handle
    int X, // horizontal position
    int Y, // vertical position
    int cx, // width
    int cy, // height
    UINT uFlags // window-positioning flags
);

2- Revisa el siguiente código en el cual se redimensiona la ventana de Notepad:

Código Delphi [-]
// Ejecuta, redimensiona y establece como Top Level Window a Notepad
procedure TForm5.Button1Click(Sender: TObject);
var
   x, y : Integer;
   cx, cy : Integer;
   Window : Integer;

begin

   // Establece las coordenadas de Notepad en función de form4
   x := Round(form4.Top/2);
   y := Round(form4.Left/2);
   cx := Round(form4.Height/2);
   cy := Round(form4.Width/2);

   // Ejecuta Notepad en modo Hide
   ShellExecute(Handle, 'open', 'Notepad.exe', nil, nil, SW_HIDE);

   // Espera 150 msseg para que se ejecute Notepad
   Sleep(150);

   // API FindWindow : Encuentra si esta activa en Windows una aplicación y obtiene su handle
   Window := FindWindow('Notepad',nil);

   // API SetForegroundWindow : Cambia el foco de la aplicación activa en Windows
   if SetForegroundWindow(Window) = True then
   begin
      // API ShowWindow: Muestra una ventana en Windows
      ShowWindow(Window, SW_SHOWNORMAL);
      // API SetWindowPos: Establece el tamaño, posición y Orden Z de una ventana en Windows.
      // la posición y dimensiones son establecidos con los valores x, y, cx, cy
      // Notepad es establecido como Top Level Window
      SetWindowPos(Window,HWND_TOPMOST, x, y, cx, cy, SWP_NOACTIVATE);
   end
   else
      MessageDlg('Notepad No Esta Activo', mtInformation,[mbOk], 0);

end;

Nota: La ventana debe ser redimensionable, de lo contrario la función SetWindowPos no podrá redimensionarla.

Espero sea útil

Nelson.

[ecfisa]

Hola María.

Se me ocurrió recién, que alguien podría mover o borrar la aplicación externa que se va a ejecutar, por lo que este agregado sería necesario para que Form2 no quede abierto y sin contenido:

Código Delphi [-]
...
  Form2:=  TForm2.Create(Self);
  Form2.Show;
  FhWnd := ExecuteApp('calc.exe');
  if FhWnd <> 0 then
  begin
     ...
  end
  else   
  // Reemplazar en el anterior
  begin  
    Form2.Close;
    raise Exception.Create('Error al iniciar la aplicación');
  end;
...

Saludos.

[[nlsgarcia]]

MARIA_MAR,

Empezado por nlsgarcia

1- Con la función SetForegroundWindow se puede establecer el tamaño, posición y orden Z de una ventana en Windows

Corrección: No es la función SetForegroundWindow, es la función SetWindowPos.

Empezado por MARIA_MAR

¿cómo puedo yo redimensionar la ventana en la que se ejecuta este programa Windows sin llegar a minimizarla?

Puedes usar tambien la función MoveWindow para mover y redimensionar una ventana:

BOOL MoveWindow(
    HWND hWnd, // handle of window
    int X, // horizontal position
    int Y, // vertical position
    int nWidth, // width
    int nHeight, // height
    BOOL bRepaint // repaint flag
);

Revisa este código:

Código Delphi [-]
// Ejecuta y redimensiona a Notepad
procedure TForm5.Button2Click(Sender: TObject);
var
   x, y : Integer;
   cx, cy : Integer;
   Window : Integer;

begin

   // Establece las coordenadas de Notepad en función de form5
   x := Round(form5.Top/2);
   y := Round(form5.Left/2);
   cx := Round(form5.Height/2);
   cy := Round(form5.Width/2);

   // Ejecuta Notepad en modo Hide
   ShellExecute(Handle, 'open', 'Notepad.exe', nil, nil, SW_HIDE);

   // Espera 150 msseg para que se ejecute Notepad
   Sleep(150);

   // API FindWindow : Encuentra si esta activa en Windows una aplicación y obtiene su handle
   Window := FindWindow('Notepad',nil);

   // API SetForegroundWindow : Cambia el foco de la aplicación activa en Windows
   if SetForegroundWindow(Window) = True then
   begin
      // API MoveWindow: Establece la posición y dimensiones de una ventana en Windows.
      // la posición y dimensiones son establecidos con los valores x, y, cx, cy
      MoveWindow(Window,x, y, cx, cy, true);
      // API ShowWindow: Muestra una ventana en Windows
      ShowWindow(Window, SW_SHOWNORMAL);
   end
   else
      MessageDlg('Notepad No Esta Activo', mtInformation,[mbOk], 0);

end;

Espero sea útil

Nelson.