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

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

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

2 إجابة

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

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


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

 

تم الرد عليه بواسطة (7,610 نقاط)
عُدل بواسطة
كيف يمكنني ان اضيف هذا المكون الى مشروعي، لانه عند تحميله وفتح المشروع  الموجود في مجلد 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');

 

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

اسئلة متعلقة

+2 تصويتات
1 إجابة
سُئل منذ 6 أيام في تصنيف vcl بواسطة bravesofts (7,450 نقاط) | 32 مشاهدات
+2 تصويتات
1 إجابة
سُئل أغسطس 9 في تصنيف vcl بواسطة KHALED (3,390 نقاط) | 26 مشاهدات
+2 تصويتات
2 إجابة
سُئل أغسطس 11 في تصنيف vcl بواسطة KHALED (3,390 نقاط) | 40 مشاهدات
+2 تصويتات
1 إجابة
سُئل يوليو 31 في تصنيف vcl بواسطة mohsen alahmad (140 نقاط) | 45 مشاهدات
+4 تصويتات
1 إجابة
سُئل يوليو 31 في تصنيف fmx بواسطة NADIRE (630 نقاط) | 32 مشاهدات
ادعُ اصدقائك في الفايسبوك لمشاركتك

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

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

162 سؤال
327 إجابة
527 تعليق
104 مستخدم