API函数ExtractIcon的使用

会计考友

　　ExtractIcon
　　说明 - 获取包含在可执行文件或 DLL 中的图标数或图标句柄. 图标索引范转从 0 到图标数减. 要获取图标数, 传递 -1.
　　参数 - hInst 是应用程序实例句柄. 调用 GetClassLong 来获取该值.
: l1 [1 n7 X0 {9 [7 o, D　　LpIconPath 一个指向要获取相关图标的文件的指针. 该文件可以用在注册表中的应用程序的文件扩展名来关联.
! M. v$ w! j; W4 u. X) H) Q& y　　LpiIcon 图标索引 (以零为基数).
9 x& \9 v/ g3 {! y1 Y9 b　　返回值 - 一个图标句柄或文件中的图标数.
　　宿主文件 Shell32.dll
　　在 Visual FoxPro 中的定义
　　DECLARE INTEGER ExtractIcon IN Shell32;
) g+ t" P% {9 u% `3 R0 d' Y( b# B  v　　INTEGER hInst, STRING @lpszExeFileName, INTEGER nIconIndex
$ l: u# k* J" B1 B$ e/ g! e　　Visual FoxPro 示例
) Y! q. e: v: c% N! n　　* 用 FOXTOOLS 函数来获取窗口句柄
　　lnHwnd = MainHWnd()
+ k. I8 L* @3 j5 m) U　　lnHinstance = GetClassLong(lnHWnd, GCL_HMODULE)
　　lnIconCount = ExtractIcon(lnHinstance, lcfile, -1)
　　lnFirstIcon = ExtractIcon(lnHinstance, lcfile, 0)