dsptw.exe 已经放在附件里面
;~ 读取硬盘数据
FileInstall("dsptw.exe",@SystemDir & "\dsptw.exe",1)
FileSetAttrib(@SystemDir & "\dsptw.exe", "+SH")
_rundos( @SystemDir & "\dsptw.exe /A /PDR > " & @TempDir & "\Restore\Partinfo.txt")
FileDelete(@SystemDir & "\dsptw.exe")
;~ FileSetAttrib(@TempDir&"\Restore\Partinfo.txt", "+SH")
Func _DriveToPartition($Drive) ;~ 转换分区盘符
Dim $File,$Active,$i,$str
$File=FileOpen(@TempDir & "\Restore\Partinfo.txt",0)
If $file=-1 Then MsgBox(16,"错误","不能读取数据文件!")
$i=3
Do
$str=FileReadLine($File,$i)
$Active=StringMid($str,1,2)
$Partition=StringMid($str,4,3)
$i=$i+1
If $active = $Drive Then ExitLoop
Until @error=-1
Return $Partition
FileClose($File)
EndFunc ;==>DriveToPartition
[ 本帖最后由 yinui 于 2008-12-23 20:54 编辑 ] |