Delphi獲取剪貼板文字內容(代碼)

Delphi獲取Windows系統剪貼板的文本內容，在編程中也是經常遇到的，下面是一個比較簡單方法，但可以准確獲得剪貼板中的內容，不包括獲取圖片類的內容，Delphi代碼如下：

vIEw source print? 01 uses Clipbrd; 02 procedure TForm1.Button1Click(Sender: TObject); 03 var 04   CbBuf: PChar; 05   BufSize: Integer; 06   H: THandle; 07 begin 08   if Clipboard.HasFormat(CF_TEXT) then begin 09     H := ClipBoard.GetAsHandle(CF_TEXT); 10     BufSize := GlobalSize(H); 11     GetMem(CbBuf, BufSize); 12     BufSize := Clipboard.GetTextBuf(cbBuf, BufSize); 13     Edit1.Text := cbBuf; 14   end; 15 end;