將Word嵌入Delphi中

轉載自： http://bigpower.blog.51cto.com/209892/90287

unit Main; interface uses 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.