delphi4arab منتديات دلفي للعرب

نسخة كاملة : كيف يتم إستخراج Hard disk Serial number لحماية برامجي ؟
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

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

- هناك أيضا أداة بسيطة , مبرمجة بدلفي : Hardware_IDExtractor
بالتوفيق ,,
وعليكم السلام ورحمة الله وبركاته
إقتباس :جربتهم كلهم و لم اجد نتيجة
إن كنت تستخدم إصدار دلفي 2009 فما فوق استخدم أنماط متوافقة:
http://www.delphi4arab.net/forum/showpos...ostcount=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
إلى حين تظهر ملفاته المصدرية جرب.
والله أعلم.
عزيزي الغالي جربت TGetDiskSerial ولاكن المشكلة إنه يطلب صلاحيات المدير على الويندوز 7 و فيستا
هل من حل؟
أفضل حل أن تخبر المستخدم أن يشغل البرنامج بصلاحيات مدير
أو حاول:
http://www.delphi4arab.net/forum/showthr...p?tid=3498
السلام عليكم ورحمة الله
أظن بان مشكلتك أخي هي أن بعض إعدادات البيوس يجب تغييرها أحياناً, قبل البحث عن موضوع صلاحيات المدير؟؟؟؟.
[COLOR="black"]issamdnn أهلا بعودتك Smile
إقتباس :بعض إعدادات البيوس
أيها؟ ولماذا؟[/COLOR]
السلام عليكم ورحمة الله وبركاته
أخي كاش واحد بارك الله فيك ...عذراً على التاخير أحياناً و لكن ضروف العمل والحياة .
على ما أتذكر بأن الخاصية تسمى s.m.a.r.t و يجب أن تكون فعالة للتمكن من معرفة السيريال..
إقتباس :على ما أتذكر بأن الخاصية تسمى s.m.a.r.t و يجب أن تكون فعالة للتمكن من معرفة السيريال..
لعله السبب...
لاحظت أن التابع يعمل على بعض الأجهزة دون الأخرى
ظننت أن الأمر متعلق بالقرص نفسه، لكن يبدو أن السبب كما ذكرت، سوف أتأكد...
شكرا على المعلومة أخي عصام Smile
الذي يبدو أن الخاصية 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