Cd veya DVD seri numarası

[Gold_Lady]

Merhaba.
CD-ROM veya DVD-ROM' a takılan optik medyanın seri numarasını nasıl alabilirim?
Forumda aradım ancak; işlemci, anakart, HDD ve ekran kartı seri numarasının alınmasına ilişkin bilgiler var.
Birde bununla bağlantılı olarak bilgisayarda takılı olan optik okuyucuların listesini almam lazım, sürücü isimleriyle beraber.
Şimdiden teşekkürler, kolay gelsin.

[Gold_Lady]

Kod: Tümünü seç

function GetDiskVolSerialID( cDriveName : char ) : DWord;
var dwTemp1, dwTemp2 : DWord;
begin GetVolumeInformation( PChar( cDriveName + ':\' ), Nil, 0, @Result, dwTemp2, dwTemp2, Nil, 0 );
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
MessageDlg( 'Serial number: ' + Format( '%X', [ GetDiskVolSerialID( 'd' ) ] ),
mtInformation, [mbOk], 0 );

end;

Seri numarası almak için olan kodu buldum, belki bir arkadaşımın işine yarar. Optik sürücü listesini almak kaldı.

[CiTiZEN]

Kodlar için saolun hocam