uses clipbrd;
//....
var bitmap:tbitmap;
   MyFormat : Word;
   AData,APalette : THandle;
begin
  Bitmap := TBitmap.Create;
  bitmap.Width:=form1.Canvas.ClipRect.Right;
  bitmap.height:=form1.Canvas.ClipRect.Bottom;
  bitmap.Canvas.copyrect(form1.Canvas.ClipRect,form1.canvas,form1.Canvas.ClipRect);
  Bitmap.SaveToClipBoardFormat(MyFormat,AData,HPalette(APalette));
  ClipBoard.SetAsHandle(MyFormat,AData);
  Bitmap.Free;
end;

uses comobj;
// ...
var  MsWord:Variant;
     fd:string;
begin
      MSWord := CreateOleObject('Word.Application');
      FD := 'c:/test.doc';
      MSWord.Documents.Open(FD);
      MSWord.Application.Visible := True;
      MsWord.Selection.paste;
end;

引言: 先謝謝站長~~ 我試了試,第二段的貼入WORD部分 Run到CreateOleObject時會出錯 我哪邊弄錯了嗎? 錯誤訊息如下 ...EOlesysError with message "CoInitialize has not been called"... 我的Delphi是4.0,與開開工具版本有關嗎??

引言: 4.0不支援comobj 那那那......怎麼辦^_^||

uses comobj;
// ...
var  MsWord:Variant;     
     fd:string;
begin      
      MSWord := CreateOleObject('Word.Application');      
      FD := 'c:/test.doc';
      MSWord.Documents.Open(FD);
      MSWord.Application.Visible := True;
      MsWord.Selection.paste;
end;

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons;    type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation
uses clipbrd,comobj;
{$R *.DFM}    procedure TForm1.BitBtn1Click(Sender: TObject);
var bitmap:tbitmap;
   MyFormat : Word;
   AData,APalette : THandle;
begin
  Bitmap := TBitmap.Create;
  bitmap.Width:=form1.Canvas.ClipRect.Right;
  bitmap.height:=form1.Canvas.ClipRect.Bottom;
  bitmap.Canvas.copyrect(form1.Canvas.ClipRect,form1.canvas,form1.Canvas.ClipRect);
  Bitmap.SaveToClipBoardFormat(MyFormat,AData,HPalette(APalette));
  ClipBoard.SetAsHandle(MyFormat,AData);
  Bitmap.Free;
end;    procedure TForm1.BitBtn2Click(Sender: TObject);
var  MsWord:Variant;
     fd:string;
begin
      MSWord := CreateOleObject('Word.Application');
      FD := 'c:/test.doc';
      MSWord.Documents.Open(FD);
      MSWord.Application.Visible := True;
      MsWord.Selection.paste;
end;    end.    

引言: 各位前輩~~ 然我依然沒試出來,

沒試出來?請問是啥狀況? ～～～Delphi K.Top網站總管～～～

引言: 執行到CreateOleObject後 會出現..OLEsysError with message "CoInitialize has not been called"...

這是因為主程式未加入 uses comobj;的關係 try it! ～～～Delphi K.Top網站總管～～～

引言: uses comobj嗎? 有ㄚ 我有use 真的有use~

我講的主程式是指呼叫上敘程式的.PAS程式中要加上 uses comobj; 這樣OLE才會被啟始化(Initialize) 是在"主程式"的implementation之前的USES不是之後的USES! try it ～～～Delphi K.Top網站總管～～～

引言: 一定要分兩段寫嗎? 我是寫在同一個物件的CLICK下, clipbrd,comobj我是寫在INTERFACE 的 USES 中 ~~謝謝總管~~

不如您將程式上傳至"會員求助程式檔案上傳區",我幫您Debug! ～～～Delphi K.Top網站總管～～～

在主程式 .DPR中:
 uses
  OLE2, //  <--- 確定加入OLE2
  Windows;    initialization
  CoInitialize(nil); // <-- 由程式啟動 CoInitialize()    end