Printable View
سلام
توی یه سایتی یک کد دیدیم که باهاش شماره سریال مادر برد بدست می آمد.
کسی این کد رو داره (یا بدست آوردن شماره سریال هر قطعه ای از کامپیوتر
قطعه کامپیوتر اصلا مهم نیست)
یا اگه می تونین توی نوشتن کدش کمکم کنید (از کجا شروع کنم)
برای یه برنامه لازمش دارم (البته خیلی خیلی فوری)
سلام
توي پستهاي همين انجمن دنبال Ice License بگرديد.
نقل قول:
نوشته شده توسط NoneForce
سلام
NoneForce جان
FGInt که داخل کامپوننت uses شده رو دلفی نمی شناسه و پیغام نشناختن FGInt رومیده؟؟؟؟؟؟
اگه می دونی چطوری این کامپوننت رو اضافه کرد لطف می کنی کمکم کنی
بقیه دوستان اگه کد یا کامپوننتی دارن لطف می کنن و به من کمک کنن
NoneForce بازهم خیلی خیلی ممنون و دست درد نکنه
من یک یونیت دارم که شماره سریال هارد رو بدست میاره. اگه خواستی به من ایمیل بزن.
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
دوستان
لطفا روي ايميل اطلاعات رو تبادل نكنيد.
همين جا بزارين كه همه ازش استفاده كنن.
ممنون
سلام
اينو بگيريد :
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
البته فكر نكنم يهش نيازي داشته باشيد. اون فايل قبلي را فرستادم كه از توابع داخلش استفاده كنيد. قرار نيست نصبش كنيد .
اين هم كه كامپوننت ديگه :
MiTeC System Information Suite 9.4.3
كه اطلاعات بيشتري در مورد سيستم بهتون مي دهد.
این هم لینک مستقیم.
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
اين يك يونيت است و براي استفاده آن را به پروژه خودتون اضافه كنيد.
در هر يونيتي كه قصد دارين شماره سريال و در مشخصه ديگه از هارد را كه نميدونم چيه را چك كنيد بايد متغير زير راتعريف كنيد.
HDDres: uHDD.THDDResult
بعد كد زير را بنويسيد.(مثال)
if (HDDres.HDDSerial <> 'Y24JXCQE') or (HDDres.HDDRevision <> 'YAR41BW0') or (HDDres.HDDModel <> 'Maxtor 6Y080L0') then
سلام
نقل قول:
نوشته شده توسط NoneForce
NoneForce جان
کد های برای Cpu و ... غیره رو داشت اما درباره Main board تا اونجای که من دیدم چیزی نداشت
(با مشخصات Cpu مشکلم حل شد از توابعی که داخلش بود استفاده کردم) منظورم این بود که
کامپوننت نصب نمی شه نه این که نتونستم ازش استفاده کنم.
باز هم خیلی خیلی ممنون
سلام
نقل قول:
نوشته شده توسط alî
هنوز ازش استفاده نكردم اما دست درد نكنه
اگه كدو رو داخل [CODE] [ /COde ] بذاری خیلی بهتره
من یه کامپوننت دارم که تمام اطلاعات سخت افزاری سیستم رو میده.
اینجا آپش می کنم. همه ازش استفاده کنن.
واسه اونا که راهنمائی میخوان بگم که یه فیل کمک بغل بقیه هست و توش راه حل نصب فایل های ocx و dll رو گفته
اگه نتونستید بگید براتون به فارسی بگم.
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
اینم آدرس.
به امید دیدار.
سلام
m_maj دست در د نكنهنقل قول:
نوشته شده توسط 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
ولی برای من خطا می دهد اگه خطا شو رفع کردین به من هم اطلاع بدین
سلام
كسي اين رو امتحان نكرده
اگه امتحان كردين و جواب داده بگين
ممنون