［声明］

Declare Function ExtractAssociatedIcon Lib "shell32.dll" Alias "ExtractAssociateIconA" (ByVal hInst As Long, ByVal lpIconPath As String, lpiIcon As Long) As Long

［说明］

这个函数可判断一个可执行程序或DLL中是否存在图标，或是否有图标与系统注册表中指定的文件存在关联。随后，它允许我们提取出那些图标

［参数表］

hInst ---------- Long，当前应用程序的实例句柄。也可用GetWindowWord函数取得拥有一个窗体或控件的示例的句柄

lpIconPath ----- String，指定一个文件名，准备从该文件中提取图标。如果文件并非执行程序或DLL本身，但通过系统注册表与一个可执行文件关联，就用这个字串装载可执行程序的名字

lpiIcon -------- Long，在其中装载图标在可执行文件中的资源标识符

［返回值］

Long，如果找到任何图标，就返回图标的句柄；否则返回零

［其它］

注意至少要把lpIconPath字串定义成MAX_PATH个字符的长度