剪贴板 – 蓝天白云

uses Clipbrd;

procedure TForm1.Button1Click(Sender: TObject);
var
  CbBuf: PChar;
  BufSize: Integer;
  H: THandle;
begin
  if Clipboard.HasFormat(CF_TEXT) then begin
    H := ClipBoard.GetAsHandle(CF_TEXT);
    BufSize := GlobalSize(H);
    GetMem(CbBuf, BufSize);
    BufSize := Clipboard.GetTextBuf(cbBuf, BufSize);
    Edit1.Text := cbBuf;
  end;
end;

uses Clipbrd;

procedure TForm1.Button1Click(Sender: TObject);

var

CbBuf: PChar;

BufSize: Integer;

H: THandle;

begin

if Clipboard.HasFormat(CF_TEXT) then begin

H := ClipBoard.GetAsHandle(CF_TEXT);

BufSize := GlobalSize(H);

GetMem(CbBuf, BufSize);

BufSize := Clipboard.GetTextBuf(cbBuf, BufSize);

Edit1.Text := cbBuf;

end;