[deliriun]

Hola buen día a todos,

Estaba viendo un código muy interesante ::

Código Delphi [-]
function GetVolumeID(DriveChar: Char): String;
var
   MaxFileNameLength, VolFlags, SerNum: DWord;
begin
   if GetVolumeInformation(PChar(DriveChar + ':\'), nil, 0,
      @SerNum, MaxFileNameLength, VolFlags, nil, 0)
   then
   begin
     Result := IntToHex(SerNum,8);
     Insert('-', Result, 5);
   end
   else
       Result := '';
end;

Código Delphi [-]
ShowMessage(GetVolumeId('c'));

Pues y mi duda era si es posible modificar el Serial del Disco, quisiera saber si alguien tiene alguna idea
de Cómo hacerlo, o si ya lo han hecho..