ExtractIcon-抠取图标

先把函数贴上，以后再个具体的实例

ExtractIcon（

hInst: HINST; {调用函数的程序实例}

lpszExeFileName：PChar {文件路径;文件可以是*.exe、*.dll、*.ico}

nIconIndex {图标索引}

）：HICON;   {返回图标句柄;索引为0时返回第一个图标，索引为#FFFFFFFF时返回图标总数}