CD etiketi ve Sürücüsü

[sako]

CD nin etiketini ve sürücü adını nasıl alabilirim acaba.

kolay gelsin......

[salvation]

CdRom Sürücüsünün adı:

Kod: Tümünü seç

procedure TForm1.button1Click(Sender: TObject);
var
  buffer : array[0..500] of char;
  typ : integer;
  temp:pchar;
begin
  GetLogicalDriveStrings( sizeof( buffer ), buffer );
  temp := buffer; 
  while temp[0] <> #0 do
  begin
    typ := GetDriveType( temp );
    if typ=DRIVE_CDROM then break;
    temp := StrEnd( temp ) + 1;
  end;
  showmessage(pchar(temp));
end;

Cd Label'ı bulmak için GetVolumeInformation() fonksiyonunu inceleyebilirsin.

[sako]

Benim öğrenmek isteğdiğim CD nin o an takıldığı sürücünün adı ve ayrıcada CD nin etiketi....

[salvation]

CD nin etiketini ve sürücü adını nasıl alabilirim acaba.