Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Externes Programm Starten und integrieren
15. Okt 2010, 23:32
Hoffe das hilft
Delphi-Quellcode:
procedure TForm4.Button1Click(Sender: TObject);
var
hNotepad: hWnd; //Handle auf das Window welches man einsperren möchte
begin
hNotepad := FindWindow(' notepad', nil); //In diesem Fall sperren wir das gute alte Notepad ein
Windows.SetParent(hNotepad, panel1.Handle); //Wir setzen das Parent mit Windows.SetParent, da ein Aufruf
//von SetParent zur Folge hätte, dass wir die Methode von
//TWinControl aufrufen würden, was wir nicht wollen
ShowWindow(hNotepad, SW_MAXIMIZE); //Einmal ShowWindow mit SW_MAXIMIZE als Parameter damit das Fenster
//sich über die ganze Form erstreckt
end;
Thomas Wassermann H₂♂ Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|
|
Zitat
|