得到盘片信息(200分)

现在市场上买的光盘都有Media ID信息.用以标示出其碟片制造商
Nero有个功能就是读取Media信息进入Nero软件的其它选项就有获取系统信息选项里面就有光盘信息
我想要的就是其中的制造商ID
可是不知道怎么用Delphi读取盘片的制造商ID呢?
不知有没有刻录机的指令呢?请各位大哥帮帮忙.

帮你顶上去

自已顶一下.
怎么没有帮帮忙的.

试试下面的：
注：如果返回值为'0000-0000'，则未检测到。

function GetHDSerialNumber(Drv : String): String;
var
VolumeSerialNumber: DWORD;
MaximumComponentLength: DWORD;
FileSystemFlags: DWORD;
begin
if Drv[Length(Drv)] = ':' then Drv := Drv + '/';
GetVolumeInformation(pChar(Drv), nil, 0, @VolumeSerialNumber,
MaximumComponentLength, FileSystemFlags, nil, 0);
Result := IntToHex(HiWord(VolumeSerialNumber), 4) + '-' + IntToHex(LoWord(VolumeSerialNumber), 4);
end;

谢谢楼上的兄弟.

不过上面的方法读出的是卷信息.

我想要的是光盘的制造商ID

只有刻录机才能读出的信息

自已再顶一次.

帮顶。