WMI_硬盘_DiskDrive

{$I 输入模板.run}
WMI_硬盘_DiskDrive()

{$I 帮助信息.run}

{$I 参数定义.run}
参数:字符串
{$I 返回定义.run}
返回:字符串
{$I 函数主体.run}
// Availability  --设备的状态。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','Availability')
trace('Availability  --设备的状态。=========')
trace(返回值)

// BytesPerSector  --在每个扇区的物理磁盘驱动器的字节数。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','BytesPerSector')
trace('BytesPerSector  --在每个扇区的物理磁盘驱动器的字节数。=========')
trace(返回值)

// Capabilities  --媒体访问设备的能力阵列。
//返回值 = 获取WMI数据('', '', '', 'DiskDrive','Capabilities')
//trace('Capabilities  --媒体访问设备的能力阵列。=========')
//trace(返回值)

// CapabilityDescriptions  --更详细的解释为任何在功能阵列表示的访问设备的功能的列表
//返回值 = 获取WMI数据('', '', '', 'DiskDrive','CapabilityDescriptions')
//trace('CapabilityDescriptions  --更详细的解释为任何在功能阵列表示的访问设备的功能的列表=========')
//trace(返回值)

// Caption  --对象的序列号
返回值 = 获取WMI数据('', '', '', 'DiskDrive','Caption')
trace('Caption  --对象的序列号=========')
trace(返回值)

// CompressionMethod  --设备所使用的算法或工具,以支持压缩。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','CompressionMethod')
trace('CompressionMethod  --设备所使用的算法或工具,以支持压缩。=========')
trace(返回值)

// ConfigManagerErrorCode  --Windows配置管理器错误代码。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','ConfigManagerErrorCode')
trace('ConfigManagerErrorCode  --Windows配置管理器错误代码。=========')
trace(返回值)

// ConfigManagerUserConfig  --如果为True,该设备使用用户定义的配置。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','ConfigManagerUserConfig')
trace('ConfigManagerUserConfig  --如果为True,该设备使用用户定义的配置。=========')
trace(返回值)

// CreationClassName  --代表所在的类
返回值 = 获取WMI数据('', '', '', 'DiskDrive','CreationClassName')
trace('CreationClassName  --代表所在的类=========')
trace(返回值)

// DefaultBlockSize  --此设备默认块大小,以字节为单位。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','DefaultBlockSize')
trace('DefaultBlockSize  --此设备默认块大小,以字节为单位。=========')
trace(返回值)

// Description  --描述
返回值 = 获取WMI数据('', '', '', 'DiskDrive','Description')
trace('Description  --描述=========')
trace(返回值)

// DeviceID  --磁盘驱动器与系统中的其他设备的唯一标识符
返回值 = 获取WMI数据('', '', '', 'DiskDrive','DeviceID')
trace('DeviceID  --磁盘驱动器与系统中的其他设备的唯一标识符=========')
trace(返回值)

// ErrorCleared  --如果为True,报告LastErrorCode错误现已清除。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','ErrorCleared')
trace('ErrorCleared  --如果为True,报告LastErrorCode错误现已清除。=========')
trace(返回值)

// ErrorDescription  --关于可能采取的纠正措施记录在LastErrorCode错误,和信息的详细信息。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','ErrorDescription')
trace('ErrorDescription  --关于可能采取的纠正措施记录在LastErrorCode错误,和信息的详细信息。=========')
trace(返回值)

// ErrorMethodology  --误差检测和校正的类型被此设备支持。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','ErrorMethodology')
trace('ErrorMethodology  --误差检测和校正的类型被此设备支持。=========')
trace(返回值)

// FirmwareRevision  --修订制造商分配的磁盘驱动器固件。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','FirmwareRevision')
trace('FirmwareRevision  --修订制造商分配的磁盘驱动器固件。=========')
trace(返回值)

// Index  --给定的驱动器的物理驱动器号。此属性由GetDriveMapInfo方法填补。 0xFF的值表示给定的驱动器不映射到物理驱动器。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','Index')
trace('Index  --给定的驱动器的物理驱动器号。此属性由GetDriveMapInfo方法填补。 0xFF的值表示给定的驱动器不映射到物理驱动器。=========')
trace(返回值)

// InstallDate  --日期和时间对象安装。此属性不需要的值以表示已安装的对象。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','InstallDate')
trace('InstallDate  --日期和时间对象安装。此属性不需要的值以表示已安装的对象。=========')
trace(返回值)

// InterfaceType  --物理磁盘驱动器的类型 (IDE、sata)
返回值 = 获取WMI数据('', '', '', 'DiskDrive','InterfaceType')
trace('InterfaceType  --物理磁盘驱动器的类型 (IDE、sata)=========')
trace(返回值)

// LastErrorCode  --报告的逻辑设备上一个错误代码。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','LastErrorCode')
trace('LastErrorCode  --报告的逻辑设备上一个错误代码。=========')
trace(返回值)

// Manufacturer  --制造商名称
返回值 = 获取WMI数据('', '', '', 'DiskDrive','Manufacturer')
trace('Manufacturer  --制造商名称=========')
trace(返回值)

// MaxBlockSize  --最大块的大小,以字节为单位,通过该设备访问的媒体。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','MaxBlockSize')
trace('MaxBlockSize  --最大块的大小,以字节为单位,通过该设备访问的媒体。=========')
trace(返回值)

// MaxMediaSize  --最大介质尺寸的介质,以KB为单位,由该设备支持。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','MaxMediaSize')
trace('MaxMediaSize  --最大介质尺寸的介质,以KB为单位,由该设备支持。=========')
trace(返回值)

// MediaLoaded  --如果真,媒体为一磁盘驱动器加载,这意味着该设备具有一个可读的文件系统和可访问。对于固定磁盘驱动器,该属性将始终为TRUE。
trace('MediaLoaded  =========')
返回值 = 获取WMI数据('', '', '', 'DiskDrive','MediaLoaded')
trace(返回值)

// MediaType  --由该设备使用或访问的媒体类型。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','MediaType')
trace('MediaType  --由该设备使用或访问的媒体类型。=========')
trace(返回值)

// MinBlockSize  --最小的块大小,以字节为单位,通过该设备访问的媒体。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','MinBlockSize')
trace('MinBlockSize  --最小的块大小,以字节为单位,通过该设备访问的媒体。=========')
trace(返回值)

// Model  --磁盘驱动器的制造商的型号。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','Model')
trace('Model  --磁盘驱动器的制造商的型号。=========')
trace(返回值)

// Name  --名字
返回值 = 获取WMI数据('', '', '', 'DiskDrive','Name')
trace('Name  --名字=========')
trace(返回值)

// NeedsCleaning  --如果真,媒体接入设备需要清洁。不论手动或自动清洗是可能显示在Capabilities属性。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','NeedsCleaning')
trace('NeedsCleaning  --如果真,媒体接入设备需要清洁。不论手动或自动清洗是可能显示在Capabilities属性。=========')
trace(返回值)

// NumberOfMediaSupported  --可被支持的或插入的介质最大数量
返回值 = 获取WMI数据('', '', '', 'DiskDrive','NumberOfMediaSupported')
trace('NumberOfMediaSupported  --可被支持的或插入的介质最大数量=========')
trace(返回值)

// Partitions  --此物理磁盘驱动器上的分区是由操作系统识别的数目。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','Partitions')
trace('Partitions  --此物理磁盘驱动器上的分区是由操作系统识别的数目。=========')
trace(返回值)

// PNPDeviceID  --即插即用逻辑设备的播放设备标识符。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','PNPDeviceID')
trace('PNPDeviceID  --即插即用逻辑设备的播放设备标识符。=========')
trace(返回值)

// PowerManagementCapabilities  --逻辑设备的特定功率相关的能力阵列。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','PowerManagementCapabilities')
trace('PowerManagementCapabilities  --逻辑设备的特定功率相关的能力阵列。=========')
trace(返回值)

// PowerManagementSupported  --如果为True,该设备可以是电源管理
返回值 = 获取WMI数据('', '', '', 'DiskDrive','PowerManagementSupported')
trace('PowerManagementSupported  --如果为True,该设备可以是电源管理=========')
trace(返回值)

// SCSIBus  --盘驱动器的SCSI总线号。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','SCSIBus')
trace('SCSIBus  --盘驱动器的SCSI总线号。=========')
trace(返回值)

// SCSILogicalUnit  --SCSI逻辑单元的磁盘驱动器的号码(LUN)。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','SCSILogicalUnit')
trace('SCSILogicalUnit  --SCSI逻辑单元的磁盘驱动器的号码(LUN)。=========')
trace(返回值)

// SCSIPort  --盘驱动器的SCSI端口号。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','SCSIPort')
trace('SCSIPort  --盘驱动器的SCSI端口号。=========')
trace(返回值)

// SCSITargetId  --SCSI标识符号码的磁盘驱动器的。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','SCSITargetId')
trace('SCSITargetId  --SCSI标识符号码的磁盘驱动器的。=========')
trace(返回值)

// SectorsPerTrack  --在每个轨道此物理磁盘驱动器扇区数。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','SectorsPerTrack')
trace('SectorsPerTrack  --在每个轨道此物理磁盘驱动器扇区数。=========')
trace(返回值)

// SerialNumber  --由制造商分配的号来识别物理介质。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','SerialNumber')
trace('SerialNumber  --由制造商分配的号来识别物理介质。=========')
trace(返回值)

// Signature  --磁盘识别。该属性可以被用于识别一个共享资源。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','Signature')
trace('Signature  --磁盘识别。该属性可以被用于识别一个共享资源。=========')
trace(返回值)

// Size  --磁盘大小
返回值 = 获取WMI数据('', '', '', 'DiskDrive','Size')
trace('Size  --磁盘大小=========')
trace(返回值)

// Status  --对象的当前状态。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','Status')
trace('Status  --对象的当前状态。=========')
trace(返回值)

// StatusInfo  --逻辑设备的状态
返回值 = 获取WMI数据('', '', '', 'DiskDrive','StatusInfo')
trace('StatusInfo  --逻辑设备的状态=========')
trace(返回值)

// SystemCreationClassName  --该作用域计算机的CreationClassName属性的值。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','SystemCreationClassName')
trace('SystemCreationClassName  --该作用域计算机的CreationClassName属性的值。=========')
trace(返回值)

// SystemName  --系统名称
返回值 = 获取WMI数据('', '', '', 'DiskDrive','SystemName')
trace('SystemName  --系统名称=========')
trace(返回值)

// TotalCylinders  --物理磁盘驱动器上柱面总数。该值可能不准确
返回值 = 获取WMI数据('', '', '', 'DiskDrive','TotalCylinders')
trace('TotalCylinders  --物理磁盘驱动器上柱面总数。该值可能不准确=========')
trace(返回值)

// TotalHeads  --磁盘驱动器上磁头总数。该值可能不准确。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','TotalHeads')
trace('TotalHeads  --磁盘驱动器上磁头总数。该值可能不准确。=========')
trace(返回值)

// TotalSectors  --物理磁盘驱动器上的扇区总数。该值可能不准确。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','TotalSectors')
trace('TotalSectors  --物理磁盘驱动器上的扇区总数。该值可能不准确。=========')
trace(返回值)

// TotalTracks  --物理磁盘驱动器上的曲目总数。该值可能不准确。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','TotalTracks')
trace('TotalTracks  --物理磁盘驱动器上的曲目总数。该值可能不准确。=========')
trace(返回值)

// TracksPerCylinder  --在物理磁盘驱动器上的每个柱面轨迹的数量。该值可能不准确。
返回值 = 获取WMI数据('', '', '', 'DiskDrive','TracksPerCylinder')
trace('TracksPerCylinder  --在物理磁盘驱动器上的每个柱面轨迹的数量。该值可能不准确。=========')
trace(返回值)


返回 = 设置指标('正常', '数据', '描述')
Trace(返回)
{$I 调试开始.run}
调用组件('参数1')
{$I 调试结束.run}

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Delphi7是一款强大的集成开发环境(IDE),其中包含了用于创建Windows应用程序的工具和组件。WMI(Windows Management Instrumentation)可以帮助开发人员在Windows操作系统中获取和管理各种系统信息。 要获取硬盘序列号,我们可以使用Delphi7提供的WMI组件。首先,我们需要在项目中导入WMI组件。 在Delphi7的主菜单中,选择"Component"->"Import ActiveX Control",然后在弹出的对话框中找到并选中"WMI Scripting Library",点击"Install"按钮进行安装。 安装完毕后,我们可以在工具栏中看到WMI组件的图标。我们可以通过拖拽该图标到窗体上,或者在代码中创建一个TWMIScriptControl组件的实例。 下面是一段示例代码,用于获取硬盘序列号: ```delphi procedure TForm1.Button1Click(Sender: TObject); var WMIService: Variant; DiskDriveItems, DiskDrive: Variant; i: Integer; SerialNumber: String; begin WMIService := CreateOleObject('WbemScripting.SWbemLocator').ConnectServer('.', 'root\CIMv2', '', '', '', '', 0, nil); DiskDriveItems := WMIService.ExecQuery('SELECT * FROM Win32_DiskDrive'); for i := 0 to DiskDriveItems.Count - 1 do begin DiskDrive := DiskDriveItems.ItemIndex[i]; SerialNumber := DiskDrive.SerialNumber; // 获取硬盘序列号 ShowMessage('硬盘' + IntToStr(i+1) + '序列号:' + SerialNumber); end; end; ``` 上述代码中,我们首先建立了一个WMIService对象,用来连接WMI服务。然后,我们执行了一个WQL查询,选择Win32_DiskDrive类中的所有项。接着,我们遍历查询结果,获取每个硬盘的序列号,并显示在消息框中。 这样,我们就可以通过Delphi7的WMI组件获取硬盘序列号了。记得在运行程序时以管理员身份运行,以避免获取受限信息的问题。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值