如何判断剪贴板不为空?

[KingI]

请问如何判断剪贴板中不为空？

[naner_china]

Eg
判断windows剪贴板里是否为空,没有则读取图片到Image中
uses clipbrd;

if ClipBoard.HasFormat(CF_Picture) then
Image1.Picture.Assign(ClipBoard);

[王集鹄]

uses Clipbrd;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Clipboard.FormatCount <= 0 then
{ TODO : 空 };
end;