随笔 - 110  文章 - 28 评论 - 26 

留言簿(1)

随笔分类(103)

随笔档案(110)

文章分类(25)

文章档案(28)

新闻档案(3)

友情连接

  • 小蜜蜂
  • 马氏膏药网
  • 淋巴结肿大,淋巴结核,淋巴结炎 乳腺增生,小叶增生 颈椎病,腰椎病,腰间盘突出 马氏淋巴消炎贴,马氏增生散结贴,马氏关节肌肉贴
  • 黑客基地
  • 全球最大的黑客门户网站

最新随笔

积分与排名

  • 积分 - 146509
  • 排名 - 44

最新评论

阅读排行榜

评论排行榜

var
  ico: TIcon;
begin
opendialog1.Execute;
ico := TIcon.Create;
ico.Handle:=ExtractIcon(HInstance, PChar(opendialog1.FileName), 0);
ico.SaveToFile('c:\123.ico');
ico.Free;

end;


上面是保存下来,如果你显示在image组件上:
var
  ico: TIcon;
begin
if opendialog1.Execute then
begin
Image1.picture.Assign(nil);
ico := TIcon.Create;
ico.Handle:=ExtractIcon(HInstance, PChar(opendialog1.FileName), 0);
DrawIcon(self.Image1.Canvas.Handle,33,33,ico.Handle);
ico.Free;
end;
end;

posted on 2009-01-14 00:22 小叶子 阅读(483) 评论(0)  编辑 收藏 引用 所属分类: 笔记
只有注册用户登录后才能发表评论。

笔记和文章,可能抄袭,只为学习,请原谅