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..