VPF::Проблема с определением seriala в CD

Hoor

Дата 28.5.2007, 23:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 16.2.2007

Репутация: нет
Всего: нет

Господа, пытаюсь считывать параметры СD (прога в этот момент на HDD):

Код


s:=copy(DriveComboBox1.Text,1,2); {задаю диск "вручную"}
p:=PChar(S);
if GetDriveType(p) = DRIVE_CDROM then
begin

if not DirectoryExists(edit2.Text) then CreateDir(edit2.Text);

GetVolumeInformation(p,VolumeName,MAX_PATH,@VolumeSerialNo,
                       MaxComponentLength,FileSystemFlags,
                       FileSystemName,MAX_PATH);

Получаю сериално:

Код


 IntToHex(VolumeSerialNo,8)

Записываю на тот же CD и при повторном считывнии (прога уже на СD) сериално уже другой,

Код


s:=copy(application.ExeName,1,3);
p:=PChar(S);
if GetDriveType(p) = DRIVE_CDROM then
begin

GetVolumeInformation(p,VolumeName,MAX_PATH,@VolumeSerialNo,
                       MaxComponentLength,FileSystemFlags,
                       FileSystemName,MAX_PATH);

копирую прогу в другую папку на том же CD сериално третий.
КАК ЛЕЧИТЬ? Мне нужен однозначный идентификатор, может можно подойти как-то по другому?

MetalFan

Дата 29.5.2007, 08:03 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

серийный номер тома всегда меняется при записи/дозаписи на ЦД.
у болванок нет уникального серийного номера....

--------------------

There are always someone smarter than you...

Hoor

Дата 29.5.2007, 09:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 16.2.2007

Репутация: нет
Всего: нет

А до записи можно просчитать какой будет потом? Есть что-то по этому поводу в литературе?

MetalFan

Дата 29.5.2007, 11:42 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

Hoor, а смысл? тот же CloneCD создаст тебе дубликат в два счета.
разве что использовать уникальную в рамках партии идентификатор производителя и размер... ну еще пару параметров.
как их получить? поищи на форуме по слову ATIP.

--------------------

There are always someone smarter than you...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »