Как узнать серийник биоса и HDD

[Bright-rider]

Нужно написать прогу, чтоб она показывала серийник биоса и HDD. Но я не знаю как. Помогите плиз. Я в delphi новичок.

[_-Re@l-_]

Получение серийного номера BIOS

function GetBiosNumber: string;
begin
result := string(pchar(ptr($FEC71)));
end;

Получить серийный номер диска

function GetHardDiskSerial(const DriveLetter: Char): string;
var
NotUsed: DWORD;
VolumeFlags: DWORD;
VolumeInfo: array[0..MAX_PATH] of Char;
VolumeSerialNumber: DWORD;
begin
GetVolumeInformation(PChar(DriveLet ter + ':\'),
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;

Delphi World и поиск на этом форуме

[[MoNAMur]]

http://programmersforum.ru/showthread.php?t=105971 и биос и хдд и не только...