NSIS 获取光驱路径

Share

1. !define MYNAME `GetCDVolume`
   
2. 
   
3. Name ${MYNAME}
   
4. Caption `${MYNAME} - Demo`
   
5. XPStyle on
   
6. 
   
7. OutFile ${MYNAME}.exe
   
8. Function .onInit
   
9. Call GetCDVolume
   
10. Quit
    
11. FunctionEnd
    
12. 
    
13. Function GetCDVolume
    
14. Push $0
    
15. Push $1
    
16. Push $2
    
17. Push $3
    
18. System::Alloc ${NSIS_MAX_STRLEN}
    
19. Pop $3
    
20. ;;获取全部驱动器
    
21. System::Call 'kernel32::GetLogicalDriveStringsA(i, i) i(${NSIS_MAX_STRLEN}, r3)'
    
22. Loop:
    
23. System::Call 'kernel32::lstrlenA(t) i(i r3) .r2'
    
24. IntCmp $2 0 End
    
25. System::Call 'kernel32::GetDriveTypeA(t) i(i r3) .r1'
    
26. StrCmp $1 5 0 Next ;是否光驱
    
27. System::Call 'kernel32::GetDiskFreeSpaceExA(t, *l, *l, *l) i(i r3, 0, .r1, 0)'
    
28. StrCmp $1 0 +3
    
29. StrCpy $1 "有盘"
    
30. Goto +2
    
31. StrCpy $1 "无盘"
    
32. System::Call '*$3(&t${NSIS_MAX_STRLEN} .r0)' ;光驱路径
    
33. MessageBox MB_OK|MB_TOPMOST "光驱盘符路径：$0 光驱状态：$1 "
    
34. Next:
    
35. ;;下一驱动器
    
36. IntOp $3 $3 + $2
    
37. IntOp $3 $3 + 1
    
38. Goto Loop
    
39. End: ;;无剩余驱动器
    
40. System::Free $3
    
41. Pop $3
    
42. Pop $2
    
43. Pop $1
    
44. Pop $0
    
45. FunctionEnd
    
46. Section -Nop
    
47. SectionEnd

复制代码