بدست آوردن شماره سریال مادر برد

سلام

نقل قول:

---

نوشته شده توسط m_maj

من یه کامپوننت دارم که تمام اطلاعات سخت افزاری سیستم رو میده.
اینجا آپش می کنم. همه ازش استفاده کنن.
واسه اونا که راهنمائی میخوان بگم که یه فیل کمک بغل بقیه هست و توش راه حل نصب فایل های ocx و dll رو گفته
اگه نتونستید بگید براتون به فارسی بگم.
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
اینم آدرس.
به امید دیدار.

---

m_maj دست در د نكنه

کدشو پیدا کردم دفعه بعد حتما کد رو می ذارم

سلام

به دست آوردن شماره سریال مادر برد


مادر برد ها بنا به نوع ساخت و مدلهای متفاوت و مارکهای گوناگون شماره سریال خاصی ندارند
یعنی شما نمی توانید شماره سریال مادر برد را در اختیار داشته باشید.
یک راه حل دیگری هم هست هر مادربردی دارای یک چیپ هست به نام BIOS (Basic Input/Output System) که همه آنها دارای یک استاندارد خاصی هستند و در همه مادر بردها یکسان هستند و جالب اینکه یک شماره سریال هم دارند که منحصر بفرد هست.
تا اونجایی که من میدونم معمولا این اطلاعات در 8kb اول حافظه BIOS قرار دارد حالا با کد زیر می تونید 256kb اول رو بخونید و تبدیل به Text کنید و از اون استفاده کنید.
[HTML]
function GetBiosInfoAsText: string;
var
p, q: pchar;
begin
q := nil;
p := PChar(Ptr($FE000));
repeat
if q <> nil then begin
if not (p^ in [#10, #13, #32..#126, #169, #184]) then begin
if (p^ = #0) and (p - q >= 8) then begin
Result := Result + TrimRight(String(q)) + #13#10;
end;
q := nil;
end;
end else
if p^ in [#33..#126, #169, #184] then
q := p;
inc(p);
until p > PChar(Ptr($FFFFF));
Result := TrimRight(Result);
end;[/HTML]
منبع : مهدی فدایی سایت IrDelphi

ولی برای من خطا می دهد اگه خطا شو رفع کردین به من هم اطلاع بدین

سلام


كسي اين رو امتحان نكرده
اگه امتحان كردين و جواب داده بگين
ممنون