Серийный № CD

[Q2W]

Проблема такая: мне нужно знать серийный № CD до его прожига, чтобы в дистрибутив запихать этот №.

Ещё нужно в проге как-то брать этот серийник, чтобы проверить тот ли он.

Поиск по форуму результатов не дал.

[Cryonyx]

Эт ты хочешь что-то наподобие StarForce реализовать? Да ещё и на Басике?

[Q2W]

Что такое StarForce?
Надеюсь этот топик даст больше результатов, чем поиск по форуму.

[ANDLL]

StarForce - программа для защиты дисков. от копирования, подлога и т.п. Используется производителями игр, которым не нравится, когда с одного купленного диска играет половина города.

[ANDLL]

Код: Выделить всё

Private Declare Function GetVolumeInformation Lib "Kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim Serial As Long, VName As String, FSName As String
    'Create buffers
    VName = String$(255, Chr$(0))
    FSName = String$(255, Chr$(0))
    'Get the volume information
    GetVolumeInformation "C:", VName, 255, Serial, 0, 0, FSName, 255
    'Strip the extra chr$(0)'s
    VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
    FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
    MsgBox "The Volume name of C:\ is '" + VName + "', the File system name of C:\ is '" + FSName + "' and the serial number of C:\ is '" + Trim(Str$(Serial)) + "'", vbInformation + vbOKOnly, App.Title
End Sub


[Q2W]

Отлично, большое спасибо!

Теперь ещё хотелось бы узнать: как организовать нарезку дисков с заранее известными серийными номерами?

Как вообще происходит присвоение серийного номера диску?

[ANDLL]

А ты хоть вкурсе, как происходит нарезка?

[Q2W]

Для меня нарезка происходит путём нажатия соответствующей кнопочки в Неро.