先把函数贴上,以后再个具体的实例
ExtractIcon(
hInst: HINST; {调用函数的程序实例}
lpszExeFileName:PChar {文件路径;文件可以是*.exe、*.dll、*.ico}
nIconIndex {图标索引}
):HICON; {返回图标句柄;索引为0时返回第一个图标,索引为#FFFFFFFF时返回图标总数}
ExtractIcon(
hInst: HINST; {调用函数的程序实例}
lpszExeFileName:PChar {文件路径;文件可以是*.exe、*.dll、*.ico}
nIconIndex {图标索引}
):HICON; {返回图标句柄;索引为0时返回第一个图标,索引为#FFFFFFFF时返回图标总数}
转载于:https://www.cnblogs.com/keyvip/archive/2010/12/13/1904464.html