Drev Serienummer

procedure TForm1.Button1Click(Sender: TObject);
var
  Root: PChar;
  VolName: array[0..255] of Char;
  SerialNumber,
  MaxCLength,
  FileSysFlag: DWord;
  FileSysName: array[0..255] of Char;
begin
  Root := PChar(Copy(GetCurrentDir, 1, 2) + \'\\\');

  GetVolumeInformation(Root, VolName, 255, @SerialNumber, MaxCLength, FileSysFlag, FileSysName, 255);
  Edit1.Text :=  VolName;
  Edit2.Text := IntToHex(SerialNumber, 0);
end;