+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : إستخراج الرقم التسلسلي للوحة الأم (/showthread.php?tid=3368)
إستخراج الرقم التسلسلي للوحة الأم - Dz_MicroSoft - 21-08-2011
السلام عليكم ..
لحماية برامجي و جعلها تعمل في جهاز واحد فقط
واجهت مشكلة في إستخراج الرقم التسلسلي للوحة الأم أو الهارد دسك
حتى أبرمج خوارزمية في البرنامج تعتمد على هذا الرقم
أو طريقة أخرى لحماية البرنامج
إستخراج الرقم التسلسلي للوحة الأم - TF6M - 22-08-2011
السلام عليكم
راجع هذه المواضيع :
بحث عن مكون TGetDiskSerial
أيضا : هنا+هنا
حماية البرامج في دلفي
بالتوفيق,,
إستخراج الرقم التسلسلي للوحة الأم - paix144 - 22-08-2011
و عليكم السلام و رحمة الله
يمكنك استعمال الرقم التسلسلي ل Adress Mac
كود :
uses
NB30;
function GetAdapterInfo(Lana: Char): String;
var
Adapter: TAdapterStatus;
NCB: TNCB;
begin
FillChar(NCB, SizeOf(NCB), 0);
NCB.ncb_command := Char(NCBRESET);
NCB.ncb_lana_num := Lana;
if Netbios(@NCB) <> Char(NRC_GOODRET) then
begin
Result := 'mac not found';
Exit;
end;
FillChar(NCB, SizeOf(NCB), 0);
NCB.ncb_command := Char(NCBASTAT);
NCB.ncb_lana_num := Lana;
NCB.ncb_callname := '*';
FillChar(Adapter, SizeOf(Adapter), 0);
NCB.ncb_buffer := @Adapter;
NCB.ncb_length := SizeOf(Adapter);
if Netbios(@NCB) <> Char(NRC_GOODRET) then
begin
Result := 'mac not found';
Exit;
end;
Result :=
IntToHex(Byte(Adapter.adapter_address[0]), 2) + '-' +
IntToHex(Byte(Adapter.adapter_address[1]), 2) + '-' +
IntToHex(Byte(Adapter.adapter_address[2]), 2) + '-' +
IntToHex(Byte(Adapter.adapter_address[3]), 2) + '-' +
IntToHex(Byte(Adapter.adapter_address[4]), 2) + '-' +
IntToHex(Byte(Adapter.adapter_address[5]), 2);
end;
function GetMACAddress: string;
var
AdapterList: TLanaEnum;
NCB: TNCB;
begin
FillChar(NCB, SizeOf(NCB), 0);
NCB.ncb_command := Char(NCBENUM);
NCB.ncb_buffer := @AdapterList;
NCB.ncb_length := SizeOf(AdapterList);
Netbios(@NCB);
if Byte(AdapterList.length) > 0 then
Result := GetAdapterInfo(AdapterList.lana[0])
else
Result := 'mac not found';
end;إستخراج الرقم التسلسلي للوحة الأم - TF6M - 22-08-2011
بالنسبة للهارد دسك فهو يتغيير عند formatting
http://www.delphi4arab.net/forum/showpost.php?p=5508&postcount=6
إستخراج الرقم التسلسلي للوحة الأم - paix144 - 22-08-2011
tf6m كتب :http://www.delphi4arab.net/forum/showpost.php?p=5508&postcount=6
بارك الله فيك أخي
إذن volume هو المتغيير و ليس hard disk
إستخراج الرقم التسلسلي للوحة الأم - أبو معاذ - 23-08-2011
[INDENT]
مكون رائع ، ومجاني .
[هدية العيد] مكون HddInfo لاستخراج الرقم التسلسلي الحقيقي للقرص الصلب
[/INDENT]