FestplattenSeriennummer ohne GetVolumeInformation auslesen ?

[stoxx]

Hallo Neolithos,

die Idee klang interessant. Nur kommt bei mir da nicht die Festplattennummer, mach ich was falsch ?
habe ganz normales NTFS.
Weiss auch nicht, was Du da machst *g*

Code:

procedure TForm1.Button1Click(Sender: TObject);
var stm : TFileStream;
   buf : array[0..511] of byte;
begin
stm := TFileStream.Create('\\.\C:', fmOpenRead or fmShareDenyNone);
  try
    stm.Read(buf, 512);
    lst.items.add(inttostr(PCardinal(@buf[$43])^));
    lst.Items.Add(Format('Serial: %s', [IntToHex(PCardinal(@buf[$43])^, 8)]));
  finally
    stm.Free;
  end;
end;