从dll文件提取图标

admin

1. !include nsDialogs.nsh
   
2. 
   
3. Page Custom MyIconPage
   
4. 
   
5. !define /IfNDef LOAD_LIBRARY_AS_DATAFILE 2
   
6. !define /IfNDef LR_DEFAULTSIZE 0x0040
   
7. !define /IfNDef SHGFI_ADDOVERLAYS 0x000000020
   
8. !define /IfNDef SHGFI_ICON 0x000000100
   
9. !define /IfNDef SHGFI_USEFILEATTRIBUTES 0x000000010
   
10. !if "${NSIS_CHAR_SIZE}" > 1
    
11. !define /redef /math SHFILEINFO_SIZE ${NSIS_PTR_SIZE} + 688
    
12. !else
    
13. !define /redef /math SHFILEINFO_SIZE ${NSIS_PTR_SIZE} + 348
    
14. !endif
    
15. !define /IfNDef SIID_DRIVEFIXED 8
    
16. 
    
17. Var hIcoByIndex
    
18. Var hIcoByResId
    
19. Var hIcoForSpecificDrive
    
20. Var hIcoForGenericDrive
    
21. 
    
22. Function MyIconPage
    
23. nsDialogs::Create 1018
    
24. Pop $0
    
25. 
    
26. ${NSD_CreateIcon} 0 0u 20u 20u ''
    
27. Pop $1
    
28. System::Call 'SHELL32::ExtractIcon(p0, t "$SysDir\SHELL32.dll", i 8)p.s'
    
29. Pop $hIcoByIndex
    
30. SendMessage $1 ${STM_SETIMAGE} ${IMAGE_ICON} $hIcoByIndex
    
31. 
    
32. ${NSD_CreateIcon} 50u 0u 20u 20u ''
    
33. Pop $1
    
34. System::Call 'KERNEL32::LoadLibraryEx(t "$SysDir\SHELL32.dll", p0, i${LOAD_LIBRARY_AS_DATAFILE})p.s'
    
35. System::Call 'USER32::LoadImage(pss, t "#9", i ${IMAGE_ICON}, i0, i0, i${LR_DEFAULTSIZE})p.s'
    
36. Pop $hIcoByResId
    
37. System::Call 'KERNEL32::FreeLibrary(ps)'
    
38. SendMessage $1 ${STM_SETIMAGE} ${IMAGE_ICON} $hIcoByResId
    
39. ${NSD_CreateIcon} 200 20u 20u 20u ''
    
40. Pop $1
    
41. StrCpy $2 $SysDir 3 ; "c:" probably
    
42. System::Call 'SHELL32::SHGetFileInfo(t"$2", i0, @r2, i ${SHFILEINFO_SIZE}, i${SHGFI_ICON}|${SHGFI_ADDOVERLAYS})p.r3'
    
43. ${If} $3 P<> 0
    
44. System::Call '*$2(p.s)'
    
45. Pop $hIcoForSpecificDrive
    
46. ${EndIf}
    
47. SendMessage $1 ${STM_SETIMAGE} ${IMAGE_ICON} $hIcoForSpecificDrive
    
48. ${NSD_CreateIcon} 0 40u 20u 20u ''
    
49. Pop $1
    
50. System::Call 'USER32::GetClientRect(p0,@r2)'
    
51. System::Call '*$2(&l${NSIS_PTR_SIZE},p,i,i,&w260)'
    
52. System::Call 'SHELL32::SHGetStockIconInfo(i ${SIID_DRIVEFIXED}, i${SHGFI_ICON}, pr2)i.r3'
    
53. ${If} $3 >= 0
    
54. ${AndIf} $3 != "error"
    
55. System::Call '*$2(&i${NSIS_PTR_SIZE},p.s)'
    
56. Pop $hIcoForGenericDrive
    
57. ${Else}
    
58. System::Call 'SHELL32::SHGetFileInfo(t"c:", i0x10, @r2, i ${SHFILEINFO_SIZE}, i${SHGFI_ICON}|${SHGFI_USEFILEATTRIBUTES})p.r3'
    
59. ${If} $3 P<> 0
    
60. System::Call '*$2(p.s)'
    
61. Pop $hIcoForGenericDrive
    
62. ${EndIf}
    
63. ${EndIf}
    
64. SendMessage $1 ${STM_SETIMAGE} ${IMAGE_ICON} $hIcoForGenericDrive
    
65. nsDialogs::Show
    
66. ${NSD_FreeIcon} $hIcoByIndex
    
67. ${NSD_FreeIcon} $hIcoByResId
    
68. ${NSD_FreeIcon} $hIcoForSpecificDrive
    
69. ${NSD_FreeIcon} $hIcoForGenericDrive
    
70. FunctionEnd
    
71. 
    
72. Section
    
73. nop
    
74. SectionEnd

复制代码