Taktaky - Do 20.09.07 00:48
Titel: Fremdes Programm binden
Hallo,
beim, einblenden, ausblenden, posisionieren, ... eines fremdes Programm funktioniert
aber beim binden klappt bei mir nicht
hier ist der Code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| procedure TForm1.Button13Click(Sender: TObject);
var
wnd: THandle;
btn: THandle;
begin
wnd := FindWindow(nil, 'exe1'); If btn <> 0 then
??? else
ShowMessage('keine gefunden');
end; |
ich möchte das fremde Programm, wie so binden :
Moderiert von 
Christian S.: Code- durch Delphi-Tags ersetzt
Taktaky - Do 20.09.07 10:59
Halllo,
Nun habe ich das Problem gelöst aber nicht ganz. Das fremde Programm kann ich jetzt binden, bleibt aber beweglich
und so sieht der Code jetzt :
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| procedure TForm1.Button13Click(Sender: TObject);
var
dhwnd: THandle;
begin
dhwnd := FindWindow(nil, 'exe1');
if dhwnd <> 0 then
with Panel1 do
Windows.SetParent(dhwnd, Handle);
end; |
Ich möchte auch den Titel von dem fremden Programm ausblenden
Gruß