delphi

use  Vcl.Clipbrd

procedure TForm27.FormCreate(Sender: TObject);
begin
  Caption := Clipboard.AsText;
end;

不用创建对象，直接使用剪贴板

#include <Vcl.Clipbrd.hpp>

Caption = Clipboard()->AsText‘

c++builder Delphi 直接使用剪贴板 Clipboard