API函数ExtractIcon的使用

会计考友

　　ExtractIcon
　　说明 - 获取包含在可执行文件或 DLL 中的图标数或图标句柄. 图标索引范转从 0 到图标数减. 要获取图标数, 传递 -1.
) n: b1 ^) ^8 B) ?( c　　参数 - hInst 是应用程序实例句柄. 调用 GetClassLong 来获取该值.
" U6 K9 r! ?* J) }: K　　LpIconPath 一个指向要获取相关图标的文件的指针. 该文件可以用在注册表中的应用程序的文件扩展名来关联.
+ h" }& x" I4 E& f# c　　LpiIcon 图标索引 (以零为基数).
　　返回值 - 一个图标句柄或文件中的图标数.
　　宿主文件 Shell32.dll
3 l0 R; z2 n& K　　在 Visual FoxPro 中的定义
. H, ^; \) s: h( \! s9 T　　DECLARE INTEGER ExtractIcon IN Shell32;
　　INTEGER hInst, STRING @lpszExeFileName, INTEGER nIconIndex
　　Visual FoxPro 示例
　　* 用 FOXTOOLS 函数来获取窗口句柄
- v  L1 g* w+ H6 U* f- m　　lnHwnd = MainHWnd()
　　lnHinstance = GetClassLong(lnHWnd, GCL_HMODULE)
- B8 s/ n9 o  k8 D　　lnIconCount = ExtractIcon(lnHinstance, lcfile, -1)
　　lnFirstIcon = ExtractIcon(lnHinstance, lcfile, 0)