发信人: nosound()
整理人: (2000-12-05 19:12:52), 站内信件
|
【 在 luoxq_263 () 的大作中提到: 】
: 【 在 nosound (无声) 的大作中提到: 】
: : 【 在 luoxq_263 () 的大作中提到: 】
: : .......
: 谢谢你的回答！TrayIcon是一个控件
: .......
下面是一个示例：
procedure DoExtractIcon(Filename: String);
var
Count, I: Integer;
HIcon: THandle;
tmp: Word;
FilenameBuf: array[0..255] of Char;
begin
StrPCopy(FilenameBuf, Filename);
Count := ExtractIcon(HInstance, FilenameBuf, $ffffffff);
if Count<1 then begin
HIcon := ExtractAssociatedIcon(HInstance, FilenameBuf, tmp);
if HIcon=0 then
raise Exception.Create('该文件不存在或其中不包含图标资源！');
// 含有一个图标，图标的Handle已找到即HIcon
end else begin
// 含有多个图标，循环……
for I:=0 to Count-1 do begin
HIcon := ExtractIcon(Hinstance, FilenameBuf, I);
if HIcon<>0 then begin
// 找到图标的Handle，处理它
end;
end;
end;
end;
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 61.139.13.102]
|
|