TBitmap.SaveToClipboardFormat 这个怎么使用？(100)

procedure TBitmap.SaveToClipboardFormat(var Format: Word; var Data: THandle; var APalette: HPALETTE);这3个参数怎么填，请高手帮忙！FormatDataAPalette

var Format: Word; Data: THandle; Palette: HPALETTE;SaveToClipboardFormat(Format, Data, Palette);以下来自Graphics.pasprocedure TBitmap.SaveToClipboardFormat(var Format: Word; var Data: THandle; var APalette: HPALETTE);var DIB: TDIBSection;begin Format := CF_BITMAP; HandleNeeded; with FImage do begin DIB := FDIB; DIB.dsbmih.biSize := 0; // copy to device bitmap DIB.dsbm.bmBits := nil; Data := CopyBitmap(FHandle, FPalette, FPalette, DIB, FCanvas); end; try APalette := CopyPalette(FImage.FPalette); except DeleteObject(Data); raise; end;end;复制到剪贴板uses Clipbrd;with TClipboard.Create dobegin Assign(Bitmap); Free;end;

var Adata: Thandle; //临时句柄变量。 Apalette: HPALETTE; //临时变量。 MyFormat: Word; //Word类型变量 TempImage: TBitmap;begin TempImage := TBitmap.Create; tempimage.loadfromfile('.bmp文件');try TempImage.Picture.SaveToClipboardFormat(MyFormat, Adata, Apalette); //把图发送到剪贴板，设定句柄。 ClipBoard.SetAsHandle(MyFormat, Adata);// 你可以在其他程序中CtrlV粘贴bmp图形了!finally TempImage.Free;end;end;