Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Возможно ли определить серийник CD-R

EXE © (2004-08-04 08:10:00)
Возможно ли определить серийник CD-R
который является уникальным, но не номер записи сесии

lock95 (2004-08-06 14:57:00) [1]
Все ломается и клонируется, хоть что там наклеивай и хоть куда.
Даже Fors3 трещит от проги Алкоголь 120%, а вы про какой то ID говорите ;)...

Alex Konshin (2004-08-05 11:59:00) [2]
Генери серийный номер используя этот ID и наклеивай его на коробку. Приложение будет проверять соответствие серийного номера и этого ID.
Всего делов-то.

EXE (2004-08-05 10:17:00) [3]
Мастера
Приведёный код выше показывает уникальный код или ID-строку
просто дело в том что он (код) меняется при каждой записи CD
Вот в чем проблема не возможно узнать ID-строку до записи а при следующей сесии записи он меняется

Sanek_metaller (2004-08-05 07:24:00) [4]
StarForce можно найти на дисках от компании Акелла.
Но еще есть и др способы,например диск WarCraft3 Frozen Throne.
Там без всякого сканирования говорит:"Вставь ОРИГИНАЛЬНЫЙ диск".

Izyum (2004-08-05 01:00:00) [5]
Ded Moroz © (05.08.04 00:47) [2]

Разреши с тобой не согласиться: буквально два дня назад наступил на грабли с дисками, защищенными... точно не помню - завтра, если не забуду до утра отпишу точное название "защиты". Да скопировалось все один в один... Вот токо игруля не захотела принимать код с оригинальной болванки с дикими криками...

ЗЫ: то ли Star Forse, то ли как-то еще

Ded Moroz (2004-08-05 00:47:00) [6]
Эта строка НЕ УНИКАЛЬНА!!! Любая программа клонирования компактов при создании копии CD 1:1 копирует и эту строку (Nero например).
2 AlexMIx >> можешь не надеяться :(( в болванке нет НИЧЕГО УНИКАЛЬНОГО. КОПИРУЕТСЯ ВСЕ. К сожалению...

AlexMIx (2004-08-04 09:59:00) [7]
CD может иметь или не иметь серийный номер и/или универсальный код продукта (Universal Product Code). MCI-расширение Windows предоставляет эту информации с помощью комманды MCI_INFO_MEDIA_IDENTITY command. Эта команда возвращает уникальную ID-строку.
Пример:

uses MMSystem, MPlayer;

procedure TForm1.Button1Click(Sender: TObject);
var
mp : TMediaPlayer;
msp : TMCI_INFO_PARMS;
MediaString : array[0..255] of char;
ret : longint;
begin
mp := TMediaPlayer.Create(nil);
mp.Visible := false;
mp.Parent := Application.MainForm;
mp.Shareable := true;
mp.DeviceType := dtCDAudio;
mp.FileName := 'D:';
mp.Open;
Application.ProcessMessages;
FillChar(MediaString, sizeof(MediaString), #0);
FillChar(msp, sizeof(msp), #0);
msp.lpstrReturn := @MediaString;
msp.dwRetSize := 255;
ret := mciSendCommand(Mp.DeviceId, MCI_INFO, MCI_INFO_MEDIA_IDENTITY,
longint(@msp));
if Ret <> 0 then
begin
MciGetErrorString(ret, @MediaString, sizeof(MediaString));
Memo1.Lines.Add(StrPas(MediaString));
end
else
Memo1.Lines.Add(StrPas(MediaString));
mp.Close;
Application.ProcessMessages;
mp.free;
end;
end.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »