NSIS脚本获取光驱路径【源码】

bek · 发表于 2010-1-3 13:43:26

呵呵。发些代码，有兴趣的看看吧。美女请直接略过。

!define MYNAME `GetCDVolume`
Name ${MYNAME}
Caption `${MYNAME} - Demo`
XPStyle on
OutFile ${MYNAME}.exe
Function .onInit
Call GetCDVolume
Quit
FunctionEnd
Function GetCDVolume
Push $0
Push $1
Push $2
Push $3
System::Alloc ${NSIS_MAX_STRLEN}
Pop $3
;;获取全部驱动器
System::Call 'kernel32::GetLogicalDriveStringsA(i, i) i(${NSIS_MAX_STRLEN}, r3)'
Loop:
System::Call 'kernel32::lstrlenA(t) i(i r3) .r2'
IntCmp $2 0 End
System::Call 'kernel32::GetDriveTypeA(t) i(i r3) .r1'
StrCmp $1 5 0 Next ;是否光驱
System::Call 'kernel32::GetDiskFreeSpaceExA(t, *l, *l, *l) i(i r3, 0, .r1, 0)'
StrCmp $1 0 +3
StrCpy $1 "有盘"
Goto +2
StrCpy $1 "无盘"
System::Call '*$3(&t${NSIS_MAX_STRLEN} .r0)' ;光驱路径
MessageBox MB_OK|MB_TOPMOST "光驱盘符路径：$0 光驱状态：$1 "
Next:
;;下一驱动器
IntOp $3 $3 + $2
IntOp $3 $3 + 1
Goto Loop
End: ;;无剩余驱动器
System::Free $3
Pop $3
Pop $2
Pop $1
Pop $0
FunctionEnd
Section -Nop
SectionEnd

复制代码

bek · 发表于 2010-1-8 15:40:05

{:3_234:}

技术贴没人顶

{:3_236:}

yuantian · 发表于 2010-1-10 16:54:05

回复 1# bek

不是没人回复，是没几个看懂的

l6688 · 发表于 2010-2-9 10:25:57

确实看不怎么懂。

但是支持楼主了!!

{:3_241:}

wiseqiang · 发表于 2010-5-13 16:23:48

给种地的老百姓上了一堂英语课,
哈哈

		自动登录	找回密码
密码			注册

NSIS脚本 获取光驱路径【源码】