如何获得应用程序的图标呢????添加到imagelist呢??
Extracticon么?具体给点代码吧!!!
Extracticon么?具体给点代码吧!!!
解决方案 »
- 软件运行一段时间提示 Thread Creation error:配额不足,无法处理此命令
- 指针的用法
- 关于使用条件语句
- delphi动态生成菜单--急切等待。我昨晚基本没睡也没弄好。
- 关于TDBGridEh的问题
- 24小时在线等,得不到答案不睡觉。Dbgrid事件的小问题----100分!!
- mdichild还真难控制
- 需要一个小小的源程序.
- 数据库中,我用locate函数检索一条记录,数据库的指针指到当前符合条件的记录,这时候,我想操作数据库,比如下移一条记录,用next为什么
- 请问取得本机ip地址的函数
- 我想动态加载类的引用,怎么办?有象java 里面的类似reflection 的技术吗?
- 菜鸟说:mainmenu控件好好玩
ShellAPI;procedure TForm1.Button1Click(Sender: TObject);
var
icLarge, icSmall: TIcon;
hLarge, hSmall: HICON;
begin
icLarge := TIcon.Create();
icSmall := TIcon.Create();
ExtractIconEx('C:\Program Files\Borland\Delphi7\Bin\Delphi32.exe',
0,
hLarge,
hSmall,
1);
icLarge.Handle := hLarge;
icSmall.Handle := hSmall;
ImageList1.AddIcon(icLarge);
ImageList1.AddIcon(icSmall);end;
var
FileInfo:_SHFILEINFO;
sName:string;
FileIcon:TIcon;
Num:Integer;
1.SHGetFileInfo.
begin
try
FileIcon:=TIcon.Create;
SHGetFileInfo(pchar(sName),0,FileInfo,sizeof(FileInfo),SHGFI_ICON);
FileIcon.handle:=FileInfo.HIcon;
ImageList1.addicon(FileIcon);//该函数的返回值为Icon在ImageList1中的Index.
finally
FileIcon.Free;
end;
end;
2.ExtractIcon
begin
try
FileIcon:=TIcon.Create;
Num:=ExtractIcon(hInstance,pchar(sName),LongWord(-1));//取得文件中的Icon的数目
if Num>0 then
begin
FileIcon.HIcon:=ExtractIcon(hInstance,pchar(sName),LongWord(0));
ImageList1.addicon(FileIcon);
end;
Finally
FileIcon.Free;
end;
end;
这两个函数的具体用法你可以查阅Delphi的帮助文档,也可以查阅介绍Api的一些资料