[[cHackAll]]

Código Delphi [-]
uses Windows;
 
function GetID(lpDrive: PChar): int64;
var hDevice: Integer;
begin
 hDevice := _lopen(PChar('\\.\'+lpDrive), OF_READ);
 _llseek(hDevice, $8000, 0);
 _lread(hDevice, @Result, SizeOf(Result));
 CloseHandle(hDevice);
end;
 
begin
 if GetID('g:') <> $1313030444301 then
  MessageBox(0, 'AudioCD', nil, 0);
end.

Aconsejo revisar UDF, CDFS, ISO9660, el "libro rojo" y los CDs hibridos.

Saludos