Delphi中获取剪贴板文字内容的代码

分类：Delphi 阅读 (27,307) Add comments

8月 232012

转载请注明原文地址：http://bcoder.com/delphi/delphi-code-to-get-text-in-clipboard

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;

打赏

Leave a Reply Cancel reply