Program/Delphi
[Delphi] Clipboard의 이미지 불러오기
안개폭포
2014. 7. 2. 17:46
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;