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

[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 کیلوبایت !! (http://www.4shared.com/file/3345534/744154d7/sysinfo.html)
با نصب این Package سه تا کامپوننت نصب می شه که هر کدوم اطلاعات چند قسمت ( ویندوز ، سخت افزار و متفرقه ) رو بهتون می دن ...
موفق باشید ...

[MNosouhi]

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

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

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

[keshtkar]

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

[MNosouhi]

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

[soroush_vs]

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

[mohebbi_en]

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

[mohamadmjk]

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

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