سریال سی دی

[grand_ceasare]

شنیدم که هر سی دی یک شماره سریال یکتا داره!
اگه کسی چیزی راجع به اینکه چطوری میشه این شماره رو پیدا کرد میدونه لطفا راهنمایی کنه.

[grand_ceasare]

ممنون!!!!!!!!!!!!

[tdkhakpur]

سلام
ببینید اگه یک cd سریال داشت این همه براش قفل شکن و سایر چیزها در نمی اومد.
ولی فکر کن این مطلب رو که شنیدید مال سخت افزار cd باشه نه خود cd.

[saied7468]

سلام

شنیدم که هر سی دی یک شماره سریال یکتا داره!
اگه کسی چیزی راجع به اینکه چطوری میشه این شماره رو پیدا کرد میدونه لطفا راهنمایی کنه.
هر سی دی به ازای هر بار رایت یه شماره سریال بهش تعلق می گیره .
اینم کدش:


Function GetHDDSerial(Drive : String) : String; // 'C:\', etc
Var
VolumeSerialNumber : DWORD;
MaximumComponentLength : DWORD;
FileSystemFlags : DWORD;
SerialNumber : string;
begin
GetVolumeInformation(PChar(Drive), nil, 0, @VolumeSerialNumber,
MaximumComponentLength,FileSystemFlags, nil, 0);
SerialNumber := IntToStr(VolumeSerialNumber);
Result:=(SerialNumber);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
Showmessage(GetHDDSerial('M:'));
end;


اگه می خواین از سریال سی دی برای قفل گذاری استفاده کنید بهتره که بدونید که این روش 2 تا مشکل داره :
1) شما اول باید یه فایل روی سی دی رایت کنید تا سی دی یه شماره سریال بهش تعلق بگیره بعد از این کار باید شماره سریال رو در برنامه یا بانک اطلاعاتی ذخیره کنید و بعد داده ها رو روی سی دی رایت کنید که مشکل بعد از رایت اطلاعات جدید پیش می یاد ( یعنی یه سریال جدید به سی دی تعلق می گیره و اون سریالی که درون بانک و یا برنامتون هست دیگه بدرد نمی خوره)

2) من توی چند تا انجمن خوندم که سریال سی دی رو فقط با رایتر ها می شه خوند (با سی دی رام نمی شه)
. البته چون خودم این موضوع رو امتحان نکردم زیاد مطمئن نیستم .

موفق باشید