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

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

با سلام

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

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

موفق باشید

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

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