关于Delphi Clipboard 无法访问的问题 解决

今天需要用到一个功能。就是截图后，将图片数据复制到剪贴板。

然后到测试的时候，发现经常出现无法访问的问题。

然后通过一顿盲测，发现在调用前加上  clipboard.open; 就可以。先打开，然后就能设置了。

procedure TfrmUploadPic.GetScreenPic;
var
  bmp : TBitmap;
  can : TCanvas;
  dc: HDC;
begin
  Clipboard.Clear;
  Clipboard.Open;
  bmp := TBitmap.Create; 
  bmp.Width := Screen.Width;
  bmp.Height := Screen.Height; 
  dc := GetDC(0); 
  can := TCanvas.Create;
  can.Handle := dc;
  bmp.Canvas.CopyRect(Rect(0,0,Screen.Width,Screen.Height),can,Rect(0,0,Screen.Width,Screen.Height));
//  Clipboard.Assign(bmp);
  Clipboard.SetAsHandle(CF_BITMAP,bmp.Handle);
  can.Free;
  ReleaseDC(0,dc);
end;