[Delphi] Clipboard의 이미지 불러오기

uses절에 Cliipbrd를 추가.

uses Clipbrd;

procedure TForm1.ClipboardTest;

var

  tempBitmap : TBitmap;

begin

  // 클립보드 이미지의 사이즈 측정

  tempBitmap := TBitmap.Create;

  try

    tempBitmap.LoadFromClipBoardFormat(CF_BITMAP, Clipboard.GetAsHandle(CF_BITMAP), 0);

    ShowMessage('Clipboard Image Width  : ' + IntToStr(tempBitmap.Width) + #13 +

                'Clipboard Image Height : ' + IntToStr(tempBitmap.Height));

  finally

    tempBitmap.free;

  end;

end;

참조 : http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/delphivclwin32/Clipbrd_TClipboard_GetAsHandle.html