精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>图形界面和窗体>>Re: 可能是难问题啦!我想让我的程序调用

主题:Re: 可能是难问题啦!我想让我的程序调用
发信人: 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]

[关闭][返回]