Delphi的windows剪切板操作函數

1. Clipbrd函數

function Clipboard: TClipboard;：若應用程序從未使用過剪貼板，則調用該函數形成新的剪貼板；若之前使用過剪貼板則返回使用過的剪貼板。

屬性： AsText：將剪貼版的內容作爲一個字符串輸出；方法：HasFormat：指示剪貼板中是否包含指定格式的數據。例如：

procedure TForm1.Button1Click(Sender: TObject);
begin
    if Clipboard.HasFormat(CF_TEXT) then
    Memo1.Lines.Add(Clipboard.astext);
end;

2. SetClipboard函數

function SetClipboard(NewClipboard: TClipboard): TClipboard;：利用一個新的剪貼板對象代替全局的剪貼板。例如：

var
    Myclip : TClipboard;
begin
    Myclip := TClipboard.Create;
    SetClipboard(Myclip);
    Image1.Picture.Assign(Myclip);
end;