delphi4arab منتديات دلفي للعرب
كيف يتم إستخراج Hard disk Serial number لحماية برامجي ؟ - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يتم إستخراج Hard disk Serial number لحماية برامجي ؟ (/showthread.php?tid=2643)



كيف يتم إستخراج Hard disk Serial number لحماية برامجي ؟ - foxmedo - 16-12-2010

السلام عليكم

ابحث عن طريقة لإستخراج السيريال الخاص بالهاردسيك (القرص الصلب) السيريال الثابت إلي لا يتغير
كل الأكواد الموجودة تظهر ال Volume serial وهذا مشكلته إنه اي تعديل على Hardisk Partition او Hard disk format بيتغير


كيف يتم إستخراج Hard disk Serial number لحماية برامجي ؟ - TF6M - 16-12-2010

و عليكم السلام و رحمة الله و بركاته
تم التطرق الى الموضوع سابقا , إستخدم خاصية البحث :
رقم تعريف للحاسب ، الرقم التسلسلي للقرص الصلب

- هناك أيضا أداة بسيطة , مبرمجة بدلفي : Hardware_IDExtractor
بالتوفيق ,,


كيف يتم إستخراج Hard disk Serial number لحماية برامجي ؟ - kachwahed - 17-12-2010

وعليكم السلام ورحمة الله وبركاته
إقتباس :جربتهم كلهم و لم اجد نتيجة
إن كنت تستخدم إصدار دلفي 2009 فما فوق استخدم أنماط متوافقة:
http://www.delphi4arab.net/forum/showpost.php?p=12165&postcount=2

هناك طريقة أخرى لإيجاد الرقم التسلسلي باستخدام WMI...
المرفق...
الاستخدام:
PHP كود :
function GetIdeDiskSerialNumber: string;
var
  
hdd: THDDInfo;
begin
  hdd 
:= THDDInfo.Create(nil);
  try
    
hdd.CanonicalScsiAddressing := false;
    
hdd.Method := gimAuto;
    
hdd.Drive := dPrimaryMaster;
    
Result := hdd.Serial;
  finally
    
hdd.Free;
  
end;
end; 
بعد إضافة المكتبة hddinfo.pas.
متوافق مع إصدارات دلفي من 7 إلى 2010 على الأقل.
المصدر:
كود :
http://delphi-soft.ru/files/more/HDDInfo_2.3.html
هناك أيضا مكتبة GLibWMI بنفس المبدأ:
كود :
http://sourceforge.net/projects/glibwmi/
كذلك:
كود :
http://www.magsys.co.uk/delphi/magwmi.asp

عيب استخدام WMI أنه يتطلب صلاحية مسؤول على Vista/Seven،إضافة إلى إمكانية إيقاف خدمة WMI وبالتالي تعطيل التابع.

هناك مكونات تجارية لا تستخدم WMI تحسنت مؤخرا:
كود :
http://www.devlib.net/tgetdiskserial.htm
إلى حين تظهر ملفاته المصدرية جرب.
والله أعلم.



كيف يتم إستخراج Hard disk Serial number لحماية برامجي ؟ - foxmedo - 17-12-2010

عزيزي الغالي جربت TGetDiskSerial ولاكن المشكلة إنه يطلب صلاحيات المدير على الويندوز 7 و فيستا
هل من حل؟


كيف يتم إستخراج Hard disk Serial number لحماية برامجي ؟ - kachwahed - 17-12-2010

أفضل حل أن تخبر المستخدم أن يشغل البرنامج بصلاحيات مدير
أو حاول:
http://www.delphi4arab.net/forum/showthread.php?tid=3498



كيف يتم إستخراج Hard disk Serial number لحماية برامجي ؟ - issamdnn - 28-12-2010

السلام عليكم ورحمة الله
أظن بان مشكلتك أخي هي أن بعض إعدادات البيوس يجب تغييرها أحياناً, قبل البحث عن موضوع صلاحيات المدير؟؟؟؟.


كيف يتم إستخراج Hard disk Serial number لحماية برامجي ؟ - kachwahed - 28-12-2010

[COLOR="black"]issamdnn أهلا بعودتك Smile
إقتباس :بعض إعدادات البيوس
أيها؟ ولماذا؟[/COLOR]


كيف يتم إستخراج Hard disk Serial number لحماية برامجي ؟ - issamdnn - 01-01-2011

السلام عليكم ورحمة الله وبركاته
أخي كاش واحد بارك الله فيك ...عذراً على التاخير أحياناً و لكن ضروف العمل والحياة .
على ما أتذكر بأن الخاصية تسمى s.m.a.r.t و يجب أن تكون فعالة للتمكن من معرفة السيريال..


كيف يتم إستخراج Hard disk Serial number لحماية برامجي ؟ - kachwahed - 01-01-2011

إقتباس :على ما أتذكر بأن الخاصية تسمى s.m.a.r.t و يجب أن تكون فعالة للتمكن من معرفة السيريال..
لعله السبب...
لاحظت أن التابع يعمل على بعض الأجهزة دون الأخرى
ظننت أن الأمر متعلق بالقرص نفسه، لكن يبدو أن السبب كما ذكرت، سوف أتأكد...
شكرا على المعلومة أخي عصام Smile



كيف يتم إستخراج Hard disk Serial number لحماية برامجي ؟ - kachwahed - 23-01-2011

الذي يبدو أن الخاصية S.M.A.R.T كما ذكرت وأنها غير مدعومة من قبل بعض الأقراص:
كود :
Seagate was joined by Conner, IBM, Quantum and Western Digital in the development of this new version, appropriately named S.M.A.R.T., which combines conceptual elements of Compaq's IntelliSafe and IBM's PFA.
المقال:
كود :
http://seagate.custkb.com/seagate/crm/selfservice/search.jsp?DocId=194645&NewLang=en