Cómo copiar a otra aplicación y hacer que aparezca en formato delphi

Question

En Delphi He utilizado ShellExecute durante años para iniciar (y, opcionalmente, esperar) otras aplicaciones. Ahora bien, necesito que una de estas aplicaciones aparezca en uno de mis formularios de la aplicación Delphi. He intentado el siguiente código como una prueba simple para abrir el Bloc de notas (que sí lo hace) y para mostrar el resultado dentro de PAnel1 en mi formulario (que no es así). ¿Puede una persona amable ponerme en el camino correcto? Gracias

var 
    Rec   : TShellExecuteInfo; 
    wnd : HWnd; 
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_Show; 

    ShellExecuteEx(@Rec); 

    wnd := Windows.FindWindow('Notepad', nil); 
    Windows.SetParent(Wnd, PAnel1.Handle); 

end; 

Answer 1

Todo verificación de errores omitidos, pero esto debe empezar:

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; 

Lo que definitivamente debe hacer es enumerar las ventanas del nuevo proceso, en lugar de simplemente utilizar cualquier identificador de ventana que FindWindow() devoluciones.

Answer 2

que va a ser un asunto difícil, si es aún posible.

He visto enfoques que funcionarán para aplicaciones basadas en texto: generalmente capturan el resultado estándar del proceso tal como sucede y lo ponen en un control de texto.

Pero de lo que estás hablando es de una aplicación gráfica hecha y derecha (Bloc de notas, a pesar de trabajar en texto, mostrar píxeles, no códigos de caracteres).

Por lo tanto, a menos que el Bloc de notas proporciona una interfaz donde se puede:

• solicitud de caracteres arbitrarios en la memoria intermedia; y
• enviar pulsaciones de teclas arbitrarias al programa, Diría que no tiene mucha suerte.

Definitivamente un kludge, pero una opción es monitorear continuamente las ventanas del Bloc de notas y asegurarse de que siempre se superpone sobre el área del cliente de formularios. Eso es bastante horrible, ya que tiene que detener el movimiento, el cambio de tamaño, la minimización, etc. y mantienen su orden z justo encima de sus aplicaciones. No desearía esos requisitos en mi peor enemigo.

¿Ha pensado en utilizar un editor de control creado específicamente para Delphi (o un editor de ActiveX que puede incorporar)? Ese podría ser un mejor enfoque.

Answer 3

var 
    URL: string; 
begin 
    URL:= DBMemoURL.Text; 
    // ShellExecute(self.WindowHandle,'open', PChar(URL), nil, nil, SW_SHOW); //default browser 
    ShellExecute(self.WindowHandle,'open','chrome.exe', PChar(URL), nil, SW_SHOW);