Número de serie físico del disco duro

[rgstuamigo]

Empesado por mierda>

mira a ver si te sirve este codigo
Hola, aqui tengo un ejemplo que te servira:

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;

Ese codigo es el mismo que tiene este libro de trucos en la pagina 76,. me alegra que lo conoscas y aparte de eso tambien existen muchos otros trucos mas....
Saludos...