Insertar una aplicación (archivo exe) en otro archivo exe (mozEmbed like)

Question

Me gustaría incluir mozilla firefox en mi aplicación SIN usar ningún control activex (contenedor TWebBrowser, ActiveX de mozilla ...). Intenté usar TWebBrowser (en realidad bsalsa's embedded webBrowser que es mucho mejor), pero todas las versiones de IE parecen incompatibles con algunas características del popular javascript framework y libs (JQuery, ExtJS ...).

Mi pregunta es: ¿puedo llamar al Exe de Firefox desde mi aplicación (es posible con DDE u OLE) y sobre todo MOSTRARLO dentro de mi aplicación usando un TFrame o algo similar?

la espera de sus sugerencias Saludos, M

Answer 1

Tendrá que limpiar un poco el código y averiguar cómo va a "hablar" con Firefox.
Pero aquí es cómo puede insertar cualquier aplicación dentro de un formulario Delphi.

DFM al archivo Archivo

object frmMain: TfrmMain 
    Left = 195 
    Top = 154 
    Width = 527 
    Height = 363 
    Caption = 'Containership Test' 
    Color = clBtnFace 
    Font.Charset = DEFAULT_CHARSET 
    Font.Color = clWindowText 
    Font.Height = -11 
    Font.Name = 'MS Sans Serif' 
    Font.Style = [] 
    OldCreateOrder = False 
    DesignSize = (
    519 
    329) 
    PixelsPerInch = 96 
    TextHeight = 13 
    object pnlTop: TPanel 
    Left = 0 
    Top = 0 
    Width = 519 
    Height = 292 
    Align = alTop 
    Anchors = [akLeft, akTop, akRight, akBottom] 
    BevelInner = bvLowered 
    TabOrder = 0 
    end 
    object btnLoadApp: TButton 
    Left = 172 
    Top = 297 
    Width = 75 
    Height = 25 
    Anchors = [akLeft, akBottom] 
    Caption = 'Load' 
    TabOrder = 1 
    OnClick = btnLoadAppClick 
    end 
    object btnKill: TButton 
    Left = 260 
    Top = 297 
    Width = 75 
    Height = 25 
    Anchors = [akLeft, akBottom] 
    Caption = 'Kill' 
    TabOrder = 2 
    OnClick = btnKillClick 
    end 
end 

main.pas

unit main; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, StdCtrls, ExtCtrls, ShellApi; 

type 
    TfrmMain = class(TForm) 
    pnlTop: TPanel; 
    btnLoadApp: TButton; 
    btnKill: TButton; 
    procedure btnLoadAppClick(Sender: TObject); 
    procedure btnKillClick(Sender: TObject); 
    private 
    { Private declarations } 
    AppWnd : DWORD; 
    public 
    { Public declarations } 
    end; 

var 
    frmMain: TfrmMain; 

implementation 

{$R *.dfm} 

procedure TfrmMain.btnLoadAppClick(Sender: TObject); 
var 
    ExecuteFile : string; 
    SEInfo: TShellExecuteInfo; 
begin 
    ExecuteFile:='c:\Windows\notepad.exe'; 

    FillChar(SEInfo, SizeOf(SEInfo), 0) ; 
    SEInfo.cbSize := SizeOf(TShellExecuteInfo) ; 
    with SEInfo do 
    begin 
    fMask := SEE_MASK_NOCLOSEPROCESS; 
    Wnd := pnlTop.Handle; 
    lpFile := PChar(ExecuteFile) ; 
    nShow := SW_HIDE; 
    end; 
    if ShellExecuteEx(@SEInfo) then 
    begin 
    AppWnd := FindWindow(nil, PChar('Untitled - Notepad')); 
    if AppWnd <> 0 then 
    begin 
     Windows.SetParent(AppWnd, SEInfo.Wnd); 
     ShowWindow(AppWnd, SW_SHOWMAXIMIZED); 
     ShowWindow(AppWnd, SW_SHOWMAXIMIZED); 
    end; 
    end 
    else 
    ShowMessage('Error starting notepad!') ; 
end; 

procedure TfrmMain.btnKillClick(Sender: TObject); 
begin 
    if (AppWnd <> 0) then 
    begin 
    PostMessage(AppWnd, WM_Close, 0, 0); 
    AppWnd := 0; 
    end; 
end; 

end. 

Answer 2

Puede incrustar archivos DLL en su solicitud y la "carga" a continuación, utilizando BTMemoryModule.pas (sólo Google y lo encuentras).

Si este archivo DLL es un objeto COM que podría funcionar a "cargar" la fábrica COM DLL y la obtención de una instancia de la interfaz COM que desea:

var 
    // Our own method of COM/OLE object loading! 
    Lib:  HMODULE; 
    Ptr:  TDllGetClassObject; 
    Unl:  TDLLCanUnloadNow; 
    I:   IClassFactory; 
initialization 
    Lib := LoadLibrary('zkemkeeper.dll'); 
    Ptr := GetProcAddress(Lib, 'DllGetClassObject'); 
    Unl := GetProcAddress(Lib, 'DllCanUnloadNow'); 
    if Assigned(Ptr) and (Ptr(CLASS_CZKEM, IClassFactory, I) <> S_OK) then I := nil; 
finalization 
    I := nil; 

OleInitialize(nil); 
// Create a IZKEM interface instance 
if not Assigned(I) then Exit; 
if I.CreateInstance(nil, IZKEM, CZ) <> S_OK then Exit; 
if not Assigned(CZ) then Exit; 

No sé cómo incrustar ejecutables.

Espero que esta información ayude.

Answer 3

La forma más sencilla de insertar un EXE en su aplicación es agregarlo como recurso.

Haga presentar una .RC con algo como el siguiente texto:

OTHER_EXE_FILE RCDATA "nameofother.exe" 

a continuación, utilizando brcc32.exe puede compilar un archivo .RES del mismo nombre que el .RC con la que se puede incluir a continuación ($ I) el nuevo archivo .RES en su aplicación. El NAMEOFOTHER.EXE tiene que estar en la misma carpeta que el archivo .RC o estar correctamente pathed, IIRC.

Supuestamente, hay otra forma de hacer esto también. No utiliza el compilador brcc32.exe de la línea de comandos e incluye ($ I) el archivo .RC en su programa y el compilador compila el archivo .RC sobre la marcha.

No puedo decirle si el segundo método funciona o no, ya que nunca lo he probado.

Answer 4

Creo que lo que el tipo original, quiere en realidad es un navegador Web motor incorporado como un control en su aplicación de renderización. Si es así, Gecko (la parte de representación de mozilla) está disponible como un complemento para su Aplicación. No creo que quieras ejecutar un EXE.

Por ejemplo, Mozilla Firefox no es solo un archivo EXE, sino que requiere otras cosas, incluida una carpeta de perfiles. Probablemente no has pensado en todos los problemas que causarían.

Si solo desea un control de navegador web, esta no es la forma de hacerlo.Prueba este lugar: http://ftp.newbielabs.com/Delphi%20Gecko%20SDK/ https://sourceforge.net/projects/d-gecko/