delphi 取图片宽高

Var  
      Bmp:TBitMap;  
      Stream:TMemoryStream;  
  begin  
      Bmp   :=TBitMap.Create;  
      Bmp.LoadFromFile('XX.BMP');  
  //尺寸  
      PX   :=Bmp.Width   ;  
      PY   :=Bmp.Height;  
      Stream:=TMemoryStream.Create;  
      Bmp.SaveToStream(Stream);  
  //大小  
      Size   :=Stream.Size;  
      Stream.Free;  
      Bmp.Free;  
  end;   

可以用TBITMAP得到BMP文件  
  TICON得到ICO文件  
  TJPGIMAGE得到JPEG，JPG文件，DELPHI现只支持这些格式，如要用其它的，呵呵，你自己作解码算法吧，就没这么简单了