delphi - 如何在类Win32_DiskPartition中获取StartingOffset属性的值

我收到消息


自动化对象不支持方法“ StartingOffset”。


这是我的代码的一小部分：

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
        ShowMessage(objLogicalDisk.StartingOffset);
        driveletter := string(objLogicalDisk.DeviceID);

        if driveletter = ExtractFileDrive(GetCurrentDir) then
        begin
            SetLength(result, 6);
            result[0] := string(objdiskDrive.DeviceID);
            result[1] := string(objdiskDrive.Model);
            result[2] := string(objdiskDrive.MediaType);
            result[3] := string(ConvertBytes(objdiskDrive.Size));
            result[4] := string(objLogicalDisk.Description);
            result[5] := string(ConvertBytes(objLogicalDisk.Size));
        end;
        objLogicalDisk:=Unassigned;
    end;

here的源代码

最佳答案

您的代码失败，因为objLogicalDisk变量持有Win32_LogicalDisk WMI类的实例，并且您需要访问Win32_DiskPartition类。同样，您的示例代码还不完整，但似乎您正在使用here发布的代码。在这种情况下，您可以通过StartingOffset变量（objPartition）访问objPartition.StartingOffset属性。