TImage怎么能从Ico文件里读出16*16的图标显示出来？(100分)

为什么我一读就是32*32的？

抄的，没试过。

房客 (2000-3-19 3:14:34)
var
image1 : TPicture ;
begin
Image1 := TPicture.Create;
Image1.LoadFromFile(Filename);
if Pos('.BMP', Uppercase(FileName))>0 then
Image1.Bitmap.Handle := CopyImage(Image1.Bitmap.Handle, Image_Bitmap,16, 16, Lr_CopyDeleteOrg)
else
Image1.Icon.Handle := CopyImage(Image1.Icon.Handle, Image_Icon, 16, 16,Lr_CopyDeleteOrg);
end;

装入Icon 后，执行以下语句就行了。
Image1.picture.Icon.Handle := CopyImage(Image1.picture.Icon.Handle, Image_Icon, 16, 16,Lr_CopyDeleteOrg);

不行啊，这只是把32*32的图标处理成16*16的了，不是.ico文件里存的小图标啊