Fremde Exe in exe kleben (einbinden) !

[taktaky]

Hallo,

ist möglich und leicht, ein fremdes Programm in mein Programm einzubinden?

Das fremde exe soll aber richtig Fest sein und auch wenn ich das Programm bewege.

Binding an Object visible on runtime

http://members.lycos.co.uk/forforums...-einbinden.jpg



Gruß




_________________

[SirThornberry]

hallo, könntest du das Bild bitte in den Anhang packen. Das hat den Vorteil das es auch noch im Beitrag vorhanden ist wenn du es mal vom Lycosserver löschst

[Luckie]

Du könntest mit SetParent dein Fenster als Parent des fremden Fensters setzen. Aber wozu soll das gut sein?

[taktaky]

Zitat von Luckie:

Du könntest mit SetParent dein Fenster als Parent des fremden Fensters setzen. Aber wozu soll das gut sein?

Aber wie? gar nicht kappiert!

Gibt es kein Code dafür?

Ist eine exe nicht wie ein Bild auf Form zu binden?

Gruß




-----

[Luckie]

Das ist der Code!
http://msdn2.microsoft.com/en-us/library/ms633541.aspx

Zitat von taktaky:

Ist eine exe nicht wie ein Bild auf Form zu binden?

Wie bitte? Geht das etwas verständlicher?

[taktaky]

Zitat von Luckie:

Das ist der Code!
http://msdn2.microsoft.com/en-us/library/ms633541.aspx

Trotzdem nicht kapiert , ich sehe nur die allgemeine Funktion
Wie soll der Delphi Code lauten?

[SirThornberry]

du musst das Fenster der Exe suchen welches du einfangen willst. Das Handle dieses Fensters übergibst du dann der Funktion und übergibst zusätzlich das Handle des neuen Parents (das deiner Form).
Wie die einzelnen Schritte funktionieren findet sich über die Suche bzw. kannst du dazu auch Fragen stellen wenn du an einer konkreten Stelle nicht weiter kommst. Aber ein copy&paste Beispiel wird dir wohl verwährt bleiben.
Schau dir die Hilfe zur Funktion genau an und arbeite dich in das Thema ein so das du es auch verstehst.

[taktaky]

Hallo,

alle gerade laufende Anwendungen kann ich finden und ihre Titel listen :

Delphi-Quellcode:

unit Unit1;

interface

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

type
  EnumWindowsProc = function (Hwnd : THandle;Param:Pointer):Boolean;stdcall;
  TFrmMain = class(TForm)
    BtLister: TButton;
    List1: TListBox;
    procedure BtListerClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;

implementation
function GetTitle(Hwnd : THandle;Param:Pointer):Boolean;stdcall;
var
  Text : string;
begin
  SetLength(Text,100);
  GetWindowText(Hwnd,Pchar(Text),100);
  FrmMain.List1.Items.Add (Inttostr(Hwnd) + ' : ' + Text);
  GetTitle := True;
end;

{$R *.DFM}

procedure TFrmMain.BtListerClick(Sender: TObject);
var
WindowProc : EnumWindowsProc;
begin
  List1.Items.Clear;
  WindowProc := GetTitle;
  EnumWindows(@WindowProc,0);
end;

end.

Aber das Problem wie kann ich eine in mein Form Binden?


Gruß

[Luckie]

Wurde dir doch gerade erklärt:

1. Handle des Betreffenden Fenster finden mit FindWindow
2. Oben genannte API-Funktion aufrufen, mit dem Handle des eignen und dem Handle des mit Hilfe von FindWindow gefundenen Fensters.

[taktaky]

Zitat von Luckie:

Wurde dir doch gerade erklärt:

1. Handle des Betreffenden Fenster finden mit FindWindow
2. Oben genannte API-Funktion aufrufen, mit dem Handle des eignen und dem Handle des mit Hilfe von FindWindow gefundenen Fensters.

Ich kann zwar ein Window finden ,anzeigen, ausblenden, ... :

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
Windows.ShowWindow(FindWindow(nil,PChar('Test')),SW_show);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Windows.ShowWindow(FindWindow(nil,PChar('Test')),SW_HIDE); // Test : Anwendung-Name
end;

Das Problem, wie kann ich das Fenster binden?



--------