用Api在任务栏显示图标的时候.hIcon应该填什么值

hucn2000

用Api在任务栏显示图标的时候.hIcon应该填什么值

大熊

是图示的句柄吧！

大熊

是图标的句柄吧！

hucn2000

是的

但是不晓得怎么获得

大熊

好像也要用个API函数来获得的吧！

hucn2000

是这个吗
好象也要提供图标句柄

GetIconInfo

VB声明
Declare Function GetIconInfo Lib "user32" Alias "GetIconInfo" (ByVal hIcon As Long, piconinfo As ICONINFO) As Long
说明
取得与图标有关的信息
返回值
Long，非零表示成功，零表示失败。会设置GetLastError
参数表
参数 类型及说明
hIcon Long，图标句柄
piconinfo ICONINFO，这个结构装载的信息与包含了XOR及AND位图的图标有关
注解
函数返回时，由ICONINFO结构载入的位图必须由应用程序删去

大熊

何不试试那个叫ExtractIcon的吧！听说蛮灵的！TONY版主的最爱！

hucn2000

在哪呀

大熊

听说TONY版主有本ACCESS终极秘技珍藏本，上面就有。算你运气好，俺曾偷看过几眼。它好像就是弄来句柄的。

Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
'Purpose:
'判断一个可执行文件或DLL中是否有图标存在，并将其提取出来

'Output:
'Long，如成功，返回指向图标的句柄；如文件中不存在图标，则返回零。如果nIconIndex设为-1，就返回文件中的图标总数

'Input:
'hInst- Long，当前应用程序的实例句柄。也可用GetWindowWord函数取得拥有一个窗体或控件的实例的句柄 lpszExeFileName - String，在其中提取图标的那个程序的全名 nIconIndex ----- Long，欲获取的图标的索引。如果为-1，表示取得文件中的图标总数

'Example:
'= ExtractIcon(Application.hWndAccessApp, "C:\Demo.exe", 1)

Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long
'Purpose:
'清除图标

'Output:
'Long，非零表示成功，零表示失败。会设置GetLastError

'Input:
'hIcon Long，图标句柄

hucn2000

试试去