Come eseguire lo shell su un'altra app e visualizzarla in un formato delphi

Question

In Delphi ho utilizzato ShellExecute per anni per avviare (ed eventualmente attendere) altre applicazioni. Ora, però, ho bisogno di avere una di queste applicazioni in uno dei miei moduli di app Delphi. Ho provato il codice qui sotto come un semplice test per aprire il blocco note (che fa) e per visualizzare il risultato all'interno di PAnel1 sul mio modulo (che non funziona). Una persona gentile può mettermi sulla strada giusta? Grazie

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

Tutto il controllo degli errori omesso, ma questo dovrebbe iniziare:

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; 

Cosa si dovrebbe assolutamente fare è enumerare le finestre del nuovo processo, invece di utilizzare qualsiasi handle di finestra che FindWindow() ritorna.

Answer 2

che sarà un ingannevole, se è ancora possibile.

Ho visto approcci che funzioneranno per applicazioni basate su testo - in genere acquisiscono l'output standard del processo mentre accade e lo inseriscono in un controllo testo.

Ma quello di cui stai parlando è un'applicazione grafica completa (Blocco note, nonostante lavori su testo, pixel di visualizzazione, non codici di caratteri).

Quindi, a meno che il Blocco note fornisce un'interfaccia in cui è possibile:

• richiesta caratteri arbitrari nel buffer; e
• invia tasti arbitrari al programma, Direi che sei a corto di fortuna.

Definitivamente un kludge, ma un'opzione è quella di monitorare continuamente le finestre del Blocco note e assicurarsi che sia sempre sovrapposta all'area del client di moduli. Questo è abbastanza orribile dal momento che devi smetterlo di spostarlo, ridimensionarlo, ridurlo al minimo e così via, e mantenere il suo ordine z per essere appena sopra le tue applicazioni. Non vorrei che quei requisiti sul mio peggior nemico.

Hai mai pensato di utilizzare un controllo editor creato appositamente per Delphi (o un editor ActiveX che potresti incorporare)? Potrebbe essere un approccio migliore.

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);