Pregunta: | 32922 - OBTENER SERIE DEL DISCO DURO |
Autor: | Enrique Calderon Palomino |
Hola Amigos:
Necesito saber como puedo capturar el numero de serie del disco duro, existe algun DLL q me de dicha informacion o desde el mismo power lo puedo obtener con alguna funcion????. Gracias a todos. |
Respuesta: | Adolfo Chairez |
Deberas declarar una External Local Function:
FUNCTION long VolSerialNum (string lpRootPathName, string pVolumeNameBuffer, long nVolumeNameSize, REF long lpVolumeSerialNumber, long lpMaximumComponentLength, long lpFileSystemFlags, string lpFileSystemNameBuffer, long nFileSystemNameSize) LIBRARY "kernel32.dll" ALIAS FOR "GetVolumeInformationA" ////Este es codigo que utilizaras: long numSerie,longitud,flag string unidad,cad1,cad2,ls_num_serie unidad = "C:\" numSerie = 0 VolSerialNum(unidad, cad1, 256, numSerie, longitud, flag, cad2, 256) ls_num_serie = string(numSerie) |