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

سلام به همه

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

با سلام
فکر کنم با استفاده از کد اسمبلی زیر مشکلت حل میشه
این دستورات را قبل از 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

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

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

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

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

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

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

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

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

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

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

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