msoleiman
یک شنبه 01 خرداد 1390, 19:53 عصر
پس از جستجوهای زیاد موفق به یافتن این کد شدم ولی این کد با فورمت هارد سریال جدیدی تولید می کند من شدیدا نیازمند کدی هستم که سریال سی پی یو یا مادربرد را که غیر قابل تغییر باشد را بدست بیاورد خواهش میکنم اساتید محترم دریغ نفرمایید .
function TForm2.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]);
Caption :=IntToStr(VolumeSerialNumber);
serial :=IntToStr(VolumeSerialNumber);
Edit1 . Text :=IntToStr(VolumeSerialNumber);
end;
function TForm2.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]);
Caption :=IntToStr(VolumeSerialNumber);
serial :=IntToStr(VolumeSerialNumber);
Edit1 . Text :=IntToStr(VolumeSerialNumber);
end;