PDA

View Full Version : قفل سی دی



ramin_rp
جمعه 21 شهریور 1382, 15:54 عصر
سلام دوستان
اگه کسی تا حالا تو دلفی قفل نوشته لطفا منو راهنمایی کنه یا اگر منبعی در این مورد داره به ما هم معرفی کنه
با تشکر
رامین

said ali
سه شنبه 25 شهریور 1382, 15:32 عصر
با سلام
فکر کنم اگر سریال نامبر سی دی را بر روی یک فایل بنویسید و در خود سیدی به همراه برنامه کپی کنید و در زمان اجرا آن را چک کنید ( با بدست آوردن سریال نامبر خود سی دی در برنامه)
فکر کنم قفل خیلی محکمی بشود .البته من خودم امتحان نکردم. :P

Mohammad_Mnt
سه شنبه 25 شهریور 1382, 21:58 عصر
وقتی کپی سی دی به سی دی انجام بشه ، همه ی مشخصات دو تا سی دی مثل هم می شه ، حتی سریال نامبر سی دی :?

ramin_rp
دوشنبه 31 شهریور 1382, 12:27 عصر
دوستان سلام
با تشکر از زاهنمایی هایتان. چطور میشه سریال نامبر سی دی را به دست آورد

مهدی کرامتی
دوشنبه 31 شهریور 1382, 13:56 عصر
تابع <span dir=ltr>GetVolumeInformation()</span> را یک نگاهی بنداز.

Behzad_Asharkhan
دوشنبه 31 شهریور 1382, 14:20 عصر
ببین این بدردت میخوره


function GetDiskSerialID&#40; cDriveName &#58; char &#41; &#58; DWord;
var
dwTemp1, dwTemp2 &#58; DWord;
begin
GetVolumeInformation&#40; PChar&#40; cDriveName + '&#58;\' &#41;, Nil, 0,
@Result, dwTemp2, dwTemp2, Nil, 0 &#41;;
end;

// for test

Form1.Caption &#58;= IntToStr&#40; GetDiskSerialID&#40; 'E' &#41; &#41;;

cpuman
دوشنبه 31 شهریور 1382, 16:26 عصر
ببین این بدردت میخوره


function GetDiskSerialID&#40; cDriveName &#58; char &#41; &#58; DWord;
var
dwTemp1, dwTemp2 &#58; DWord;
begin
GetVolumeInformation&#40; PChar&#40; cDriveName + '&#58;\' &#41;, Nil, 0,
@Result, dwTemp2, dwTemp2, Nil, 0 &#41;;
end;

// for test

Form1.Caption &#58;= IntToStr&#40; GetDiskSerialID&#40; 'E' &#41; &#41;;
با سلام خدمت شما دوست عزیز اگر برنامه اماده ای در مورد خواندن سریال سی دی دارید لطفا برای من بفرستید
با تشکر
:D :) 8) :lol: :? :shock: :cry:

مهدی کرامتی
دوشنبه 31 شهریور 1382, 18:21 عصر
خوب آقا جان، قوره نشده میخوای انگور شی؟

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

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