如何将二进制流存入剪贴板中

Question

试试Assign(Clipboard)，我也不知道

Answer 1

RegisterClipboardFormat
OpenClipboard
SetClipboardData
CloseClipboard

Answer 2

procedure TForm1.Button1Click(Sender: TObject);var
  MyFormat : Word;
  Bitmap : TBitMap;
  AData,APalette : THandle;
begin
  Bitmap := TBitmap.Create;
  try
    Bitmap.LoadFromFile('c:\Program Files\Common Files\Borland Shared\Images\Splash\256color\factory.bmp');
    Bitmap.SaveToClipBoardFormat(MyFormat,AData,APalette);
    ClipBoard.SetAsHandle(MyFormat,AData);
  finally
    Bitmap.Free;
  end;
end;