学步园

转载自： http://bigpower.blog.51cto.com/209892/90287

unit Main;<br /> interface<br /> uses<br /> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br /> Dialogs, ExtCtrls, StdCtrls,Comobj;<br /> type<br /> TForm1 = class(TForm)<br /> Panel1: TPanel;<br /> Panel2: TPanel;<br /> Label1: TLabel;<br /> Button1: TButton;<br /> Button2: TButton;<br /> Button3: TButton;<br /> procedure Panel1Resize(Sender: TObject);<br /> procedure Button2Click(Sender: TObject);<br /> procedure Button1Click(Sender: TObject);<br /> private<br /> { Private declarations }<br /> FComApp:OleVariant;<br /> gWaveHwnd:Hwnd;<br /> public<br /> { Public declarations }<br /> procedure SetParentWindow(pParent: TWinControl);<br /> end;<br /> var<br /> Form1: TForm1;<br /> implementation<br /> {$R *.dfm}<br /> { TForm1 }<br /> procedure TForm1.Button1Click(Sender: TObject);<br /> var<br /> Word : Variant;<br /> begin<br /> FComApp := CreateOLEObject('Word.Application');<br /> FComApp.Documents.Open(extractfilepath(Application.ExeName)+'/test.doc',false);<br /> FComApp.Visible := True;<br /> Label1.Caption := FComApp.ActiveWindow.Caption;<br /> end;<br /> procedure TForm1.Button2Click(Sender: TObject);<br /> begin<br /> SetParentWindow(Panel1);<br /> end;<br /> procedure TForm1.Panel1Resize(Sender: TObject);<br /> begin<br /> if gWaveHwnd<>0 then<br /> begin<br /> FComApp.ActiveWindow.Height := Panel1.Height;<br /> FComApp.ActiveWindow.Width := Panel1.Width;<br /> Windows.MoveWindow(gWaveHwnd,0,0,Panel1.Width,Panel1.Height,false);<br /> end;<br /> end;<br /> procedure TForm1.SetParentWindow(pParent: TWinControl);<br /> var<br /> lWaveHwnd : Hwnd;<br /> lWidth, lHeight: Integer;<br /> lWindowCaption: String;<br /> begin<br /> //lwaveHwnd := FindWindow(nil,'Microsoft Word');//窗口标题<br /> lWindowCaption := FComApp.ActiveWindow.Caption;<br /> lwaveHwnd := FindWindow(nil,pAnsiChar(lWindowCaption+' - Microsoft Word'));//窗口标题<br /> //lwaveHwnd := FindWindowW(nil,pWideChar(String(FComApp.ActiveWindow.Caption)));//窗口标题<br /> Windows.SetWindowLong(lWaveHwnd,GWL_STYLE,GetWindowLong(lWaveHwnd, GWL_STYLE)<br /> and not (WS_CAPTION or WS_SYSMENU));<br /> Windows.SetParent(lWaveHwnd,pParent.Handle);<br /> gWaveHwnd:=lWaveHwnd;<br /> lWidth := pParent.Width;<br /> lHeight := pParent.Height;<br /> Windows.MoveWindow(lWaveHwnd,0,0,lWidth,lHeight,false);<br /> //mParent := pParent;<br /> end;<br /> end.