Numero serie disco duro

[ESTEBANC]

Hola que tal soy algo nuevo en este foro. Llegue aqui buscando como obtener el numero de serie del disco duro pero todos los resultados estan para PASCAL. alguien tiene idea de como hacerlo en builder c++. ya se que es parecido pero no entiendo una de pascal. asi que no se como pasarlo a c++
desde ya mchas gracias

[[ArdiIIa]]

Haciendo una pequeña búsqueda aparecen varios resultados....
Aquí uno de ellos...

Por suerte o por desgracia; aquí se vive Delphi en estado puro...

BOOL Drive::SerialNumber(DWORD *plngResult)
{                                   
	LPTSTR VolumeNameBuffer = "";           
	DWORD VolumeSerialNumber;  
	DWORD MaximumComponentLength;                         
	DWORD FileSystemFlags;     
	LPTSTR FileSystemNameBuffer = ""; 
	DWORD FileSystemNameSize; 
	
	LPTSTR *pVolumeNameBuffer;            
	DWORD *pVolumeSerialNumber;  
	DWORD *pMaximumComponentLength;                         
	DWORD *pFileSystemFlags;      
	DWORD *pFileSystemNameSize;

	pVolumeNameBuffer = &VolumeNameBuffer;            
	pVolumeSerialNumber = &VolumeSerialNumber;  
	pMaximumComponentLength = &MaximumComponentLength;                         
	pFileSystemFlags = &FileSystemFlags;      
	pFileSystemNameSize = &FileSystemNameSize;



	BOOL MyResult = GetVolumeInformation("c:\\", VolumeNameBuffer, 100, pVolumeSerialNumber, pMaximumComponentLength, pFileSystemFlags, FileSystemNameBuffer, 100); 
	if (MyResult = TRUE) 
	{
		*plngResult = VolumeSerialNumber;
	}
	return MyResult;
}