高仿QQ截图源码

delphi模仿QQ截图源码PicStream:=TMemoryStream.Create;
    Bitmap.SaveToStream(PicStream);
    Form1.ClientWidth:=Bitmap.Width;
    Form1.ClientHeight:=Bitmap.Height;
    PicStream.Position:=0;
    Image1.Picture.LoadFromStream(PicStream);
    FreeAndNil(Bitmap);
    PicStream.Free;
    Clipboard.Clear;