گرفتن مشخصات سخت افزاری

[mohebbi_en]

سلام به همه

آیا کسی میتونه به من کمک کنه که بتونم مشخصات سخت افزار های سیستممثل شماره سریال CPU را بگیرم البته activex ی در این مورد دارم اما میخواهم کدها و احتمالا توابع API مربوط به اینکار را بدونم چون خیلی برام مهمه.

[keshtkar]

با سلام
فکر کنم با استفاده از کد اسمبلی زیر مشکلت حل میشه
این دستورات را قبل از implementation قرار بده

var

  Form1: TForm1;

  CPUID:TCPUID;

  s1,s2,s3,s4:string;

  i:integer;

 

و این دستورات را بعد از implementation قرار بده

function IsCPUID_Available : Boolean; register;

asm

  PUSHFD

  POP     EAX

  MOV     EDX,EAX

  XOR     EAX,ID_BIT

  PUSH    EAX

  POPFD

  PUSHFD

  POP     EAX

  XOR     EAX,EDX

  JZ      @exit

  MOV     AL,True

  @exit:

end;

function GetCPUID : TCPUID; assembler; register;

asm

  PUSH    EBX

  PUSH    EDI

  MOV     EDI,EAX

  MOV     EAX,1

  DW      $A20F

  STOSD

  MOV     EAX,EBX

  STOSD

  MOV     EAX,ECX

  STOSD

  MOV     EAX,EDX

  STOSD

  POP     EDI

  POP     EBX

end; 

این دستورات را بر روی رخداد مورد نظر و یا Button بنویسید

 for I1 := Low(CPUID) to High(CPUID)  do

  CPUID[I] := -1;

 if IsCPUID_Available then

  begin

   CPUID:= GetCPUID;

   s1:=IntToHex(CPUID[1],8);

   s2:=IntToHex(CPUID[2],4);

   s3:=IntToHex(CPUID[3],4);

   s4:=IntToHex(CPUID[4],8);

  end;

 Edit1.Text:=s1[1]+s1[2]+s1[3]+s1[4];

 Edit2.Text:=s1[5]+s1[6]+s1[7]+s1[8];

 Edit3.Text:=s4[1]+s4[2]+s4[3]+s4[4];

 Edit4.Text:=s4[5]+s4[6]+s4[7]+s4[8];

 Edit5.Text:=s2[1]+s2[2]+s2[3]+s2[4];

 Edit6.Text:=s3[1]+s3[2]+s3[3]+s3[4];

با توجه به این کد باید 6 Edit بر روی فرم خود قرار دهید
البته شما می توانید تعداد Editها را کم کنید
موفق و سلامت باشید

----------------------------------------------
جهت خوانائی بیشتر از تگ Code استفاده کنید
امضاء mzjahromi

[mohebbi_en]

ممنون اینجور که من فهمیدم این CPU ID را برمیگرداند .
در مورد قطعات دیگر کمکی میتونید بکنید.
--------------------
ممنون اینجور که من فهمیدم این CPU ID را برمیگرداند .
در مورد قطعات دیگر کمکی میتونید بکنید.

[keshtkar]

سلام دوست عزیز
من خودم دنبال کدی برای شماره سریال مادربورد هستم ولی هنوز چیزی پیدا نکردم
موفق و سلامت باشید

[Mahmood_M]

سلام
من یه کامپوننت دارم که این کارها رو انجام می ده :
دانلود با حجم 3 کیلوبایت !!
با نصب این Package سه تا کامپوننت نصب می شه که هر کدوم اطلاعات چند قسمت ( ویندوز ، سخت افزار و متفرقه ) رو بهتون می دن ...
موفق باشید ...

[MNosouhi]

کامپوننت های MITEC (اگه اسمش درست در ذهنم مونده باشه) یکی از بهترین گزینه هاست. همه مشخصات سیستمتون رو بهتون میده ، چه نرم افزار و چه سخت افزار.

[فرزاد دلفی باز]

محمد جان کامپوننت شما چیز خاصی نداشت

[keshtkar]

با سلام
pesare_khob ایا این کامپاننت کرک داره یا مثل کامپاننت MSIC بدون کرک هست
موفق و سلامت باشید

[MNosouhi]

اونی که من گیر آوردم مشکلی نداشت .

[soroush_vs]

کار همتون توی سایت خیلی درسته

[mohebbi_en]

فکر کنم فردا یه چیز جدیدی براتون داشته باشم.

[mohamadmjk]

اول از همه از همتون ممنونم.
ولی یک سوال (برای من مهم)

اگه سخت افزار (مثل کارت گرافیک) نصب نشده باشه چی ؟ چطور می شه اسم یا مشخصات اون را بدست آورد (کاری که برنامه های نصب درایور سخت افزار انجام میدهند)؟؟؟؟؟؟؟؟؟