السلام عليكم
ابحث عن طريقة لإستخراج السيريال الخاص بالهاردسيك (القرص الصلب) السيريال الثابت إلي لا يتغير
كل الأكواد الموجودة تظهر ال Volume serial وهذا مشكلته إنه اي تعديل على Hardisk Partition او Hard disk format بيتغير
وعليكم السلام ورحمة الله وبركاته
إقتباس :جربتهم كلهم و لم اجد نتيجة
إن كنت تستخدم إصدار دلفي 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 و فيستا
هل من حل؟
السلام عليكم ورحمة الله
أظن بان مشكلتك أخي هي أن بعض إعدادات البيوس يجب تغييرها أحياناً, قبل البحث عن موضوع صلاحيات المدير؟؟؟؟.
[COLOR="black"]issamdnn أهلا بعودتك
إقتباس :بعض إعدادات البيوس
أيها؟ ولماذا؟[/COLOR]
السلام عليكم ورحمة الله وبركاته
أخي كاش واحد بارك الله فيك ...عذراً على التاخير أحياناً و لكن ضروف العمل والحياة .
على ما أتذكر بأن الخاصية تسمى s.m.a.r.t و يجب أن تكون فعالة للتمكن من معرفة السيريال..
إقتباس :على ما أتذكر بأن الخاصية تسمى s.m.a.r.t و يجب أن تكون فعالة للتمكن من معرفة السيريال..
لعله السبب...
لاحظت أن التابع يعمل على بعض الأجهزة دون الأخرى
ظننت أن الأمر متعلق بالقرص نفسه، لكن يبدو أن السبب كما ذكرت، سوف أتأكد...
شكرا على المعلومة أخي عصام 
الذي يبدو أن الخاصية 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