VB中系统图标的提取

%WinDir%\moricons.dll       DOS程序图标
%WinDir%\PROGMAN.exe        图标集（一）
%WinDir%\System\Cool.dll    常用图标（驱动器……）
%WinDir%\System\pifmgr.dll  DOS图标
%WinDir%\System\shell32.dll Windows系统图标集
================================================================================
【VB声明】
  Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long【别名】
  ExtractIconA【说明】
  判断一个可执行文件或DLL中是否有图标存在，并将其提取出来 【返回值】
  Long，如成功，返回指向图标的句柄；如文件中不存在图标，则返回零。如果nIconIndex设为-1，就返回文件中的图标总数 【参数表】
  hInst ----------  Long，当前应用程序的实例句柄。也可用GetWindowWord函数取得拥有一个窗体或控件的实例的句柄  lpszExeFileName -  String，在其中提取图标的那个程序的全名  nIconIndex -----  Long，欲获取的图标的索引。如果为-1，表示取得文件中的图标总数================================================================================
【VB声明】
  Private Declare Function DrawIcon Lib "user32" Alias "DrawIcon" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long【说明】
  在指定的位置画一个图标 【返回值】
  Long，非零表示成功，零表示失败。会设置GetLastError 【参数表】
  hdc ------------  Long，设备场景  x,y ------------  Long，想描绘图标的位置（逻辑坐标）  hIcon ----------  Long，欲描绘图标的句柄