قفل سی دی

[ramin_rp]

سلام دوستان
اگه کسی تا حالا تو دلفی قفل نوشته لطفا منو راهنمایی کنه یا اگر منبعی در این مورد داره به ما هم معرفی کنه
با تشکر
رامین

[said ali]

با سلام
فکر کنم اگر سریال نامبر سی دی را بر روی یک فایل بنویسید و در خود سیدی به همراه برنامه کپی کنید و در زمان اجرا آن را چک کنید ( با بدست آوردن سریال نامبر خود سی دی در برنامه)
فکر کنم قفل خیلی محکمی بشود .البته من خودم امتحان نکردم. :P

[Mohammad_Mnt]

وقتی کپی سی دی به سی دی انجام بشه ، همه ی مشخصات دو تا سی دی مثل هم می شه ، حتی سریال نامبر سی دی :?

[ramin_rp]

دوستان سلام
با تشکر از زاهنمایی هایتان. چطور میشه سریال نامبر سی دی را به دست آورد

[مهدی کرامتی]

تابع <span dir=ltr>GetVolumeInformation()</span> را یک نگاهی بنداز.

[Behzad_Asharkhan]

ببین این بدردت میخوره

function GetDiskSerialID( cDriveName : char ) : DWord;

var

  dwTemp1, dwTemp2 : DWord;

begin

  GetVolumeInformation( PChar( cDriveName + ':\' ), Nil, 0,

	@Result, dwTemp2, dwTemp2, Nil, 0 );

end;



// for test



  Form1.Caption := IntToStr( GetDiskSerialID( 'E' ) );

[cpuman]

ببین این بدردت میخوره

function GetDiskSerialID( cDriveName : char ) : DWord;

var

  dwTemp1, dwTemp2 : DWord;

begin

  GetVolumeInformation( PChar( cDriveName + ':\' ), Nil, 0,

	@Result, dwTemp2, dwTemp2, Nil, 0 );

end;



// for test



  Form1.Caption := IntToStr( GetDiskSerialID( 'E' ) );

با سلام خدمت شما دوست عزیز اگر برنامه اماده ای در مورد خواندن سریال سی دی دارید لطفا برای من بفرستید
با تشکر
:D :) 8) :lol: :? :shock: :cry:

[مهدی کرامتی]

خوب آقا جان، قوره نشده میخوای انگور شی؟

بجای تلاش برای قفل نوشتن بهتره اول دستور زبان دلفی رو یاد بگیری.

برای استفاده از کد فوق کافی است هر جا که میخواهی سریال را بدست بیاوری از کدی که در قسمت <span dir=ltr>//for test</span> نوشته شده استفاده کن.