Pozdrawiam.
Jak odczytać fabryczny numer twardego dysku?
Nie interesuje mnie funkcja GetVolumeInformation ani GetDiskInformation, bo to co zwracają nie jest numerem nadanym przez fabrykę.
Gdyby ktoś miał namiar na taką funkcję, to bardzo proszę o informację.
basia
Nie wiem cyz dokladnie o to biega ale .....
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;
do np. buttona w OnClick
ShowMessage(GetHardDiskSerial('c'));
// From Torry.net
Niestety to nie to... nie da rady pobrać fabrycznego numeru seryjnego, albo mi się zdaje. fabryczny numer seryjny to po prostu nalepka z kolejnym numerem... sądze że da się natomiast pobrać model dysku...