چطور می شه شماره سریال یک cd رو بدست آورد؟

[yaas135]

بنام خدا
سلام

چطور می شه شماره ی سریال یک cd رو بدست آورد؟

[DrDelphi2003]

فکر نمی کنم CD مثل هارد شماره سریال داشته باشه. label داره ولی سریال !

[m-khorsandi]

درود

شما با کد زیر میتونید سریال CD های صوتی (Audio CD) رو بدست بیارید:


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.

[yaas135]

من میخوام ز این سریال به عنوان قفل استفاده کنم ، یعنی می خوام کد سی دی رو توی نرم افزار به کار ببرم، که روی سی دی دیگه ای اجرا نشه نرم افزار

[علی باحجب مودتی]

کد برنامه زیر در vb عمل میکند
اگه بدرت خورد بگو delphi را بدم

[علی باحجب مودتی]

با پوزش برنامش اینه

[JikSearch]

سلام

من میخوام از این سریال به عنوان قفل استفاده کنم
فکر نکنم بدرد این کار بخوره چون سریال بعد از رایت سی دی ایجاد می شود شما سریال یک سی دی را ببینید بعد با کلون آن را کپی کنید، سی دی جدید هم همان سریال را خواهد داشت.

[علی باحجب مودتی]

خب قفلهای این جوری این جوری عمل میکنند
مثلا قفل برنامه rafeh6 و چند برنامه دیگر
از قفلهای حجمی یا laser lock یا
از قفل سخت افزاری مثلا قفل روی شماره سکتور های خراب یک فلاپی استفاده کنید