unit Unit1;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, WbemScripting_TLB, OleServer, ActiveX, StdCtrls, ExtCtrls,

 ComCtrls;

type

 TForm1 = class(TForm)

  ListBox1: TListBox;

  SWbemLocator1: TSWbemLocator;

  Button1: TButton;

  procedure Button1Click(Sender: TObject);

 private

  { Private declarations }

 public

  { Public declarations }

 end;

var

 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

 Service: ISWbemServices;

 ObjectSet: ISWbemObjectSet;

 SObject: ISWbemObject;

 PropSet: ISWbemPropertySet;

 SProp: ISWbemProperty;

 PropEnum, Enum: IEnumVariant;

 TempObj: OleVariant;

 Value: Cardinal;

 dr:string;

begin

 ListBox1.Clear;

 Service:= SWbemLocator1.ConnectServer('.', 'root\CIMV2', '', '', '','', 0, nil);

 SObject:= Service.Get('Win32_CDROMDrive', wbemFlagUseAmendedQualifiers, nil);

 ObjectSet:= SObject.Instances_(0, nil);

 Enum:= (ObjectSet._NewEnum) as IEnumVariant;

 dr:='';

 while (Enum.(1, TempObj, Value) = S_OK) do

 begin

  SObject:= IUnknown(TempObj) as SWBemObject;

  PropSet:= SObject.Properties_;

  PropEnum:= (PropSet._NewEnum) as IEnumVariant;

  while PropEnum.(1, TempObj, Value) = S_OK do

  begin

  SProp:= IUnknown(TempObj) as SWBemProperty;

  if SProp.Name='Drive' then dr:=SProp.Get_Value;

  if SProp.Name='Name' then ListBox1.AddItem(dr+' '+SProp.Get_Value, nil);

  end;

 end;

end;

end.