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;