zoukankan      html  css  js  c++  java
  • 可以用WMI来获取磁盘及分区编号

    {$APPTYPE CONSOLE}
    
    uses
      SysUtils,
      ActiveX,
      ComObj,
      Variants;
    
    
    function ListDrives : string;
    var
      FSWbemLocator  : OLEVariant;
      objWMIService  : OLEVariant;
      colDiskDrives  : OLEVariant;
      colLogicalDisks: OLEVariant;
      colPartitions  : OLEVariant;
      objdiskDrive   : OLEVariant;
      objPartition   : OLEVariant;
      objLogicalDisk : OLEVariant;
      oEnumDiskDrive : IEnumvariant;
      oEnumPartition : IEnumvariant;
      oEnumLogical   : IEnumvariant;
      iValue         : LongWord;
      DeviceID       : string;
    begin;
      Result:='';
      FSWbemLocator   := CreateOleObject('WbemScripting.SWbemLocator');
      objWMIService   := FSWbemLocator.ConnectServer('localhost', 'rootCIMV2', '', '');
      colDiskDrives   := objWMIService.ExecQuery('SELECT DeviceID FROM Win32_DiskDrive');
      oEnumDiskDrive  := IUnknown(colDiskDrives._NewEnum) as IEnumVariant;
      while oEnumDiskDrive.Next(1, objdiskDrive, iValue) = 0 do
       begin
          Writeln(Format('DeviceID %s',[string(objdiskDrive.DeviceID)]));
          DeviceID        := StringReplace(objdiskDrive.DeviceID,'','\',[rfReplaceAll]);
          colPartitions   := objWMIService.ExecQuery(Format('ASSOCIATORS OF {Win32_DiskDrive.DeviceID="%s"} WHERE AssocClass = Win32_DiskDriveToDiskPartition',[DeviceID]));
          oEnumPartition  := IUnknown(colPartitions._NewEnum) as IEnumVariant;
          while oEnumPartition.Next(1, objPartition, iValue) = 0 do
          begin
           if not VarIsNull(objPartition.DeviceID) then
           begin
            Writeln(Format('   Partition %s',[string(objPartition.DeviceID)]));
            colLogicalDisks := objWMIService.ExecQuery('ASSOCIATORS OF {Win32_DiskPartition.DeviceID="'+VarToStr(objPartition.DeviceID)+'"} WHERE AssocClass = Win32_LogicalDiskToPartition');
            oEnumLogical  := IUnknown(colLogicalDisks._NewEnum) as IEnumVariant;
              while oEnumLogical.Next(1, objLogicalDisk, iValue) = 0 do
              begin
                  Writeln(Format('     Logical Disk %s',[string(objLogicalDisk.DeviceID)]));
                  objLogicalDisk:=Unassigned;
              end;
           end;
           objPartition:=Unassigned;
          end;
           objdiskDrive:=Unassigned;
       end;
    end;
    
    begin
     try
        CoInitialize(nil);
        try
          ListDrives;
        finally
          CoUninitialize;
        end;
     except
        on E:Exception do
            Writeln(E.Classname, ':', E.Message);
      end;
      Readln;
    end.
  • 相关阅读:
    ES6 -- (1) 简介、let、块级作用域、const、顶层对象的属性、globalThis对象
    TS -- (5)声明合并、代码检查
    TS -- (4)类、类与接口、泛型
    TS -- (3)声明文件、内置对象、类型别名、字符串字面量类型、元组、枚举
    TS -- (2)接口、数组的类型、函数的类型
    TS -- (1)环境,快速入门,基础类型,类型断言、变量声明、解构、展开
    css的三定位方式的区别
    Array循环
    scroll操作
    【Nodejs】记一次图像识别的冒险
  • 原文地址:https://www.cnblogs.com/CodeGear/p/5294318.html
Copyright © 2011-2022 走看看