如何判断硬盘某一分区是否是活动分区？

新手上路

如题。                                         .

[ 本帖最后由 新手上路 于 2008-8-3 11:17 编辑 ]

bob

没玩过wmi和api,不知道能否实现
个人意见是用 DEBUG 可以查找出引导分区，一般引导分区为活动分区

lxz

#include <process.au3>
#include <file.au3>
Dim $file1,$active,$i,$str
FileInstall("dsptw.exe",@ScriptDir & "\dsptw.exe",1)
_rundos( @ScriptDir & "\dsptw.exe /A /PDR > " & @TempDir & "\partinfo.txt")
$file1=FileOpen(@TempDir & "\partinfo.txt",0)
If $file1=-1 Then MsgBox(16,"错误","不能读取数据文件！")
$i=3
$str=FileReadLine($file1,$i)
Do
   $active=StringMid($str,9,1)
   If $active="A" Then ExitLoop
   $i=$i+1
   $str=FileReadLine($file1,$i)
   Until @error=-1
   
If $active<>"A" Then
MsgBox(48,"活动分区","当前机器硬盘没有活动分区！")
Else
msgbox(64,"活动分区","当前机器硬盘活动分区为" & StringLeft($str,2) & " ")
EndIf

[ 本帖最后由 lxz 于 2008-8-3 09:12 编辑 ]

新手上路

谢谢！

[ 本帖最后由 新手上路 于 2008-8-3 11:17 编辑 ]

xxgzs

写得不错，支持一个。

zdpcc

正好用到，多谢了

nicky_926

应该读取磁盘控制器的工作状态

yangyunbo

非常感谢，挺有用的！