根据文件的扩展名取得Windows的图标? 好像CuteFTP一样,怎么做? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var FileInfo : SHFILEINFO; begin SHGetFileInfo('.gif',0,FileInfo,sizeof(FileInfo), SHGFI_USEFILEATTRIBUTES OR SHGFI_ICON OR SHGFI_SMALLICON); self.Icon.Handle := FileInfo.hIcon; Drawicon(canvas.handle,100,170,FileInfo.hIcon); end;解决问题 提取两个特殊符号之间的字符 OLE访问Excel求列的平均值??求教 菜鸟,请教各位高手,帮忙看看这段程序,不够再加~~~~~~~感激!! 向内蒙古赤峰的delphi程序员大个招呼????? FastReport报表里设变量的问题 一个怪怪高问题? 你好,这是本人写的局域网办公系统软件,请多多指教 高手请进,如何运行内存映射文件? 数据库更新,好怪的现象哦!!! 特来向Delphi的兄弟们道别,送分! 又要找工作了,大家先看看我的简历,觉得我值多少钱? 是IT人都应该看的(外包)
begin
SHGetFileInfo('.gif',0,FileInfo,sizeof(FileInfo),
SHGFI_USEFILEATTRIBUTES OR SHGFI_ICON OR SHGFI_SMALLICON);
self.Icon.Handle := FileInfo.hIcon;
Drawicon(canvas.handle,100,170,FileInfo.hIcon);
end;
解决问题