将Word嵌入Delphi中

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

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