إستخراج الرقم التسلسلي للوحة الأم
|
إستخراج الرقم التسلسلي للوحة الأم
|
السلام عليكم ..
لحماية برامجي و جعلها تعمل في جهاز واحد فقط واجهت مشكلة في إستخراج الرقم التسلسلي للوحة الأم أو الهارد دسك حتى أبرمج خوارزمية في البرنامج تعتمد على هذا الرقم أو طريقة أخرى لحماية البرنامج
22-08-2011, 01:15 AM
السلام عليكم
راجع هذه المواضيع : بحث عن مكون TGetDiskSerial أيضا : هنا+هنا حماية البرامج في دلفي بالتوفيق,, I'M Fly Like A G6
22-08-2011, 01:28 AM
و عليكم السلام و رحمة الله
يمكنك استعمال الرقم التسلسلي ل 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;
22-08-2011, 01:46 AM
I'M Fly Like A G6
22-08-2011, 04:39 PM
tf6m كتب :http://www.delphi4arab.net/forum/showpos...ostcount=6 بارك الله فيك أخي إذن volume هو المتغيير و ليس hard disk 
23-08-2011, 11:42 AM
[INDENT]
مكون رائع ، ومجاني . [هدية العيد] مكون HddInfo لاستخراج الرقم التسلسلي الحقيقي للقرص الصلب [/INDENT]
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه. |
|
|
