delphi4arab منتديات دلفي للعرب
استخراج الرقم الفزيائي الحقيقي للقرص الصلب - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : متتديات باسكال Pascal (https://delphi4arab.net/forum/forumdisplay.php?fid=7)
+--- قسم : Lazarus - Free Pascal - CrossKylix - Kylix - CrossVCL (https://delphi4arab.net/forum/forumdisplay.php?fid=34)
+--- الموضوع : استخراج الرقم الفزيائي الحقيقي للقرص الصلب (/showthread.php?tid=8253)



استخراج الرقم الفزيائي الحقيقي للقرص الصلب - أبو معاذ - 28-11-2016

السلام عليكم ورحمة الله وبركاته ،
قام أحد الإخوة في هذا المنتدى المبارك بطرح سؤال حول الكتابة في الريجستري ، و عرض كود لاستخراج الرقم الفزيائي الحقيقي للقرص الصلب (الذي لا يتغير بالفرمتة) ، الكود يشتغل على دلفي 7  ، بعد التعديلات الخفيفة و الخاصة ب :  Pchar  و  Char
فعوضا عن Pchar  نستخدم  PWideChar
و عوضا عن Char  نستخدم AnsiChar
و أصبح الكود يعمل بشكل جيد حتى في دلفي برلين  Delphi Berlin .
جربت الكود في لازاريس 1.6.2  و كانت النتيجة رائعة . Blush
لمن يبحث عن الكود  الخاص بالازاراس ،  يجده في المرفقات  . Cool


RE: استخراج الرقم الفزيائي الحقيقي للقرص الصلب - mobile - 28-11-2016

وعليكم السلام ورحمة الله وبركلته ومغفرته

بارك الله فيك استاذ Unprogramme


RE: استخراج الرقم الفزيائي الحقيقي للقرص الصلب - naquadria - 30-11-2016

و عليكم السلام و رحمة الله
بارك الله فيك اخي الكريم...
للأسف لا يدعم الأقراص الصلبة (SCSI)،


RE: استخراج الرقم الفزيائي الحقيقي للقرص الصلب - ASwedan - 20-02-2017

لم يعمل معي للأسف.