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

[kachwahed]

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

جربتهم كلهم و لم اجد نتيجة

إن كنت تستخدم إصدار دلفي 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

إلى حين تظهر ملفاته المصدرية جرب.
والله أعلم.