بدست آوردن سریال Ram, Hard, Motherboard, Cpu

[skmkh6056]

کامپوننت یا هر چیز دیگری که بتونم شماره سریالهای cpu, motherboard, hard , ram را بدست بیارم.

[Hsimple11]

با سلام

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


function GetHardDiskSerial(const DriveLetter: Char): string;
var
NotUsed: DWORD;
VolumeFlags: DWORD;
VolumeInfo: array[0..MAX_PATH] of Char;
VolumeSerialNumber: DWORD;
begin
GetVolumeInformation(PChar(DriveLetter + ':\'),
nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed,
VolumeFlags, nil, 0);
Result := Format('Label = %s VolSer = %8.8X',
[VolumeInfo, VolumeSerialNumber])
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetHardDiskSerial('c'));
end;

در ضمن فکر کنم این لینک به دردتان بخورد :
http://www.soft.tahionic.com/download-hdd_id/index.html

موفق باشید

[alimooghashang]

اینجا سر بزن
امیدوارم بدردت بخوره
http://www.computering.ir/archives/79

[saeed6162]

سلام دوست عزیز
برنامه ای که می ذارم رو دانلود کن و ببین
مشخصات کامل CPU رو با دستورات اسمبلی تو دلفی نشون می ده که سریال هم توشون هست.
موفق باشی