Seriennummer der Festplatte bzw. Diskette auslesen!

[sakura]

Der Code sollte gehen (inkl. Tippfehlern)

Delphi-Quellcode:

procedure TForm1.Button1OnClick(Sender: TObject);
var
  Root: array[0..20] of Char;
  FileSysName, VolName: array[0..255] of Char;
  SerialNum, MaxCLength, FileSysFlag: DWORD;
begin
  Root := 'C:\';
  GetVolumeInformation(Root, VolName, 255, @SerialNumber, MaxCLength,
      FileSysFlag, FileSysName, 255);
  Label1.Caption := IntToHex(SerialNum, 8);
end;

......