easyDelphi Q&A
+2 تصويتات
87 مشاهدات

كيف لي ان احصل على serial number للقرض الصلب الخاص بالحاسوب

سُئل في تصنيف vcl بواسطة (5,790 نقاط) | 87 مشاهدات
 

2 إجابة

+5 تصويتات
أفضل إجابة

يمكنك استعمال المكون المجاني HDDinfo الذي يجلب الرقم التسلسلي الفزيائي الذي لا يتغير بعد تهيئة القرص (الرقم الحقيقي للقرص)


لتحميل المكون اضغط هنا

 

تم الرد عليه بواسطة (7,820 نقاط)
عُدل بواسطة
كيف يمكنني ان اضيف هذا المكون الى مشروعي، لانه عند تحميله وفتح المشروع  الموجود في مجلد demo لم يتعرف على الوحدة hddinfo.
يجب تثبيته اولا :
1- قم باضافة مسار تواجد الوحدة HDDInfo.pas الى المكتبة في الدلفي .
2- قم بفتح الحزمة HDDInfopkg.dpk ثم Install .
هذه المكتبة التي أوصى بها الأخ شارك هي الأفضل من بين جميع المكتبات التي قد نصادفها في الأنترنات ...
و السبب أن خيار "gimZeroRights" و الذي يستعمل خاصية " IOCTL_STORAGE_QUERY_PROPERTY"  لا يفرض إلزامية "UAC" أي "صلاحيات المدير " حتى في النسخة الأخيرة للوينداوز 10 تسخة 1803 ...
أما عن كيفية إضافة المكون فعليك سوى تسطيب المكون من ملف "HD Iinfo" و بذلك تستطيع فتح ملف "Demo"
و هذا الرابط هنا : https://torry.net/authorsmore.php?id=5916 في حال الرايط أعلاه أصبح لا يعمل ..
–1 تصويت
 function GetHardDiskSerial(const DriveLetter: Char): string;
var
  NotUsed:     DWORD;
  VolumeFlags: DWORD;
  VolumeInfo:  array[0..MAX_PATH] of Char;
  VolumeSerialNumber: DWORD;
begin
  GetVolumeInformation(PChar(DriveLetter + ':\'),
    nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed,
    VolumeFlags, nil, 0);
  Result := Format('%8.8X',
    [VolumeSerialNumber])
end;

لاستعمال الدالة يكفي ان تكتب اسم البارتيشن التي تريد رقمها مثلا هنا سريال البرتيشن 'c'

serial_number:=GetHardDiskSerial('c');

 

تم الرد عليه بواسطة (2,010 نقاط)
هذا  لا يعطيك السريال نمبر و إنما الفليوم سؤيال نمبر و هو قابل للتغيير و لا يعتبر كأداة للحماية ....
هل يتغير الفليوم سيريال بعد عمل الفورمات؟؟
لا يتطلب الأمر الفورمات حتى تتم عملية التغيير ..... بل فقط دالة واحدة تقوم بذلك و يتطلب فقط الربوت للوينداوز أذكر أنني قمت بعمل برنامج يقوم بتغيير الفليوم سريل نمبر و كانت العملية ناجحة بعد الربوت للوينداوز ..
أما الفورمات فهو يتغير تبعا لمجموعة معلومات من بينها مساحة البارتيشن + إسم المستخدم + نسخة الوينداوز + .....ألخ

اسئلة متعلقة

+1 تصويت
2 إجابة
سُئل أكتوبر 6 في تصنيف vcl بواسطة KHALED (5,790 نقاط) | 37 مشاهدات
+3 تصويتات
1 إجابة
سُئل أغسطس 13 في تصنيف vcl بواسطة bravesofts (12,050 نقاط) | 45 مشاهدات
+2 تصويتات
1 إجابة
سُئل أغسطس 9 في تصنيف vcl بواسطة KHALED (5,790 نقاط) | 35 مشاهدات
+1 تصويت
1 إجابة
سُئل سبتمبر 14 في تصنيف vcl بواسطة Yamada Fakir (1,250 نقاط) | 30 مشاهدات
+1 تصويت
1 إجابة
ادعُ اصدقائك في الفايسبوك لمشاركتك

مرحبًا بك إلى EasyDelphi Q&A، حيث يمكنك طرح الأسئلة والحصول على الإجابة عليها من المستخدمين الآخرين.

لا يسمح بطلب او السؤال عن كراك او تفعيل او كسر او فك او اي شيء يخالف اتفاقيات الترخيص  مهما كان السبب ومهما كان البرنامج ونوعه. ولا حتى نشر روابط تحتوي على مثل هذه الاشياء لا في الاسئلة ولا في الاجابات ولا التعليقات . نهائيا

248 سؤال
450 إجابة
790 تعليق
144 مستخدم