Cómo obtener el título del cd insertado?

[unreal4u]

Listo !!

Código Delphi [-]
procedure ObtenerInfo;
var
  drive       : char;
  pVolName    : PChar;
  pFSBuf      : PChar;
  SectPerCls,
  BytesPerCls,
  FreeCls,
  TotCls      : DWord;

begin
  for drive := 'A' to 'Z' do
   begin
    if GetDriveType(PChar(drive + ':\')) in [DRIVE_CDROM] then
     begin
      GetMem(pVolName, MAX_PATH);
      GetMem(pFSBuf, MAX_PATH);
      GetVolumeInformation(PChar(drive + ':\'), pVolName, MAX_PATH, nil,
                           SectPerCls, BytesPerCls, pFSBuf, MAX_PATH);
      GetDiskFreeSpace(PChar(drive + ':\'), SectPerCls, BytesPerCls, FreeCls, TotCls);
      if FormatFloat('0.00', (SectPerCls * BytesPerCls * TotCls / 1000000)) = '0.00' then
       Form1.ComboBox1.Items.Add('No hay CD o DVD en [' + drive + ':\]')
      else
       Form1.ComboBox1.Items.Add(PChar(pVolName) + ' - [' + drive + ':\]');

      FreeMem(pVolName, MAX_PATH);
      FreeMem(pFSBuf, MAX_PATH);
     end;
   end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
 ComboBox1.Clear;
 ObtenerInfo;
 ComboBox1.DroppedDown := TRUE;
end;

Tan cortito como eso era

SS:

Saludos !!

[unreal4u]

PD :

lo incluí en el gran programa gran en el cual va, y a la primera ejecución me mandó el error de buffer overflow

Claro, justo tenía un dvd puesto y al recurrir al dvd, el espacio total era muchisimo más grande que lo que un DWord puede soportar...

Intenté declarar tipo LongWord pero aún así le da un buffer overflow ...

Ahora la pregunta: alguien conoce algún tipo más grande que los que acabo de nombrar ?

Por el momento le desactivé la opción de revisar los overflow, pero me gustaría tenerlo andando bien, yo la verdad me quedé como plop cuando vi que ni siquiera los LongWord eran suficientes ...

Saludos !!