请问怎么实现从粘贴板粘贴图片（JPEG格式）到Image 中

请问怎么实现从粘贴板粘贴图片（JPEG格式）到Image 中 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiMultimedia/html/delphi_2006120620561481.html
在网上找到这个程序，但是不支持粘贴JPEG的图像，请问应该怎么处理？  
  IF   Clipboard.HasFormat(CF_BITMAP)   THEN  
      BEGIN  
          Bitmap:=TBitmap.Create;  
          Bitmap.Assign(Clipboard);  
          Image1.Canvas.Draw(0,0,Bitmap);  
          FreeAndNil(Bitmap);  
      END;

uses   Clipbrd;  
  {$R   *.dfm}  
   
  procedure   TForm1.BitBtn1Click(Sender:   TObject);  
  begin  
      if   ClipBoard.HasFormat(cf_BitMap)   then  
          Image1.Picture.LoadFromClipBoardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);  
  end;  
 

大哥,我怎么修改不了我的个人资料?找不到个人资料的栏目.   刚才登陆时,说我的密码正在被暴力破解

我的行啊!  
 

破解这个有什么作用  
 

To   maozefa  
  测试了一下，还是不行啊  
 

to   guyunyuao(fly_dream)   我在继续测试,稍等!

我的行啊!  
   
  ----------------------  
   
  大哥,   在什么地方?

我的技术社区->修改我的社区信息

哦,不能改稿密码  
 

to   guyunyuao(fly_dream)测试没成功  
 

大哥,   怎么修改密码?   我的QQ也被盗了

先注销,登录时选择忘记密码  
 

to   guyunyuao(fly_dream)  
  我看了JPEG.pas源代码,它只是调用TBitmap.LoadFromClipBoardFormat,也就是说,它本身不支持从裁剪板装入

我的QQ也被盗了  
  ==========================================================================  
  你的计算机上有木马!

谢谢   maozefa  
  那有其他的方法实现从粘贴板的功能吗  
 

强烈鄙视问题解决后不结贴的人!  
  强烈鄙视技术问题解决后把贴子转移到非技术区的人!  
  鄙视你们!  
   
  http://community.youkuaiyun.com/Expert/topic/5216/5216675.xml?temp=.9262659