从系统当前粘贴板中获取文本数据 .

{ TForm1 }

//从系统当前粘贴板中获取文本数据
procedure TForm1.GetTextFromClipBoard(var AMsg: TMessage);
//uses Clipbrd
begin
  SendMessage(ATmpHandle, AMsg.Msg, AMsg.WParam, AMsg.LParam);
  if (Clipboard.HasFormat(CF_TEXT)) or (Clipboard.HasFormat(CF_OEMTEXT)) then
    mmo1.PasteFromClipboard;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ATmpHandle := SetClipboardViewer(Self.Handle);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ChangeClipboardChain(Handle, ATmpHandle);
  SendMessage(ATmpHandle, WM_CHANGECBCHAIN, Handle, ATmpHandle);
end;