Serial del disco duro

[turminator]

Una pregunta, yo veo todo este codigo y me dan ganas de probar como funciona pero cuanto abro mi Delphi 7, creo un form con un boton y le doy la opcion que al cliquear ocurra:

Código PHP:

ShowMessage(GetVolumeId('c')); 


No me muestra la ID del disco duro. Donde debo meter el codigo restante?

Código Delphi [-]
//Truco 46 de Trucomaniafunction 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;

[Sotrono]

Empezado por turminator

No me muestra la ID del disco duro. Donde debo meter el codigo restante?

En la sección Implementation.

[Neftali [Germán.Estévez]]

En la sección de componentes de mi página hay uno llamado TDiskInfo que te permite obtener el número de Serie del disco duro (no el volumen) a parte de mucha otra información.

[German]

Empezado por Neftali

En la sección de componentes de mi página hay uno llamado TDiskInfo que te permite obtener el número de Serie del disco duro (no el volumen) a parte de mucha otra información.

Un pequeño apunte sobre la demo incluida en el componente: El gráfico muestra al revés el espacio ocupado y libre.

Y otro sobre el componente (pequeño también): Solo comentar que, para obtener la propiedad "SerialNumber", es necesario incluir una librería de la carpeta DEMO en la misma carpeta que el ejecutable que use el componente. Además, se debe añadir "ShareMem" en la cláusula "uses" del form que utilice el componente, o en la "uses" del proyecto, si es que van a utilizarlo varios forms. Si no se incluye, lanza una excepción de lectura de memoria (BDS 2006). Esta información no aparece en la ayuda (o al menos no la he visto).

Salu2.

[Neftali [Germán.Estévez]]

Empezado por German

(1) El gráfico muestra al revés el espacio ocupado y libre.
(2) Y otro sobre el componente (pequeño también): Solo comentar que, para obtener la propiedad "SerialNumber", es necesario incluir una librería de la carpeta DEMO en la misma carpeta que el ejecutable que use el componente. Además, se debe añadir "ShareMem" en la cláusula "uses"

Gracias por ambos comentarios; Corregiré la demo y añadiré lo que comentas al fchero de documentación.

[German]

Un comentario mas...

Al utilizar "ShareMem" también es necesario incluir la librería "borlndmm.dll" en la carpeta del ejecutable, a no ser que el PC tenga instalado Delphi, en cuyo caso no es necesario, ya que esta librería está incluida en la carpeta "Bin", y está registrada en Windows.

¿No seria mas fácil incluir la función que devuelve el número de serie del HD en un dcu...? (tan solo es una reflexión).

Salu2.

[turminator]

Empezado por Sotrono

En la sección Implementation.

Muchas gracias Sotrono. Algo tan básico como esto, no sabia como funcionaba. A partir de ahora puedo ir viendo todos los ejemplos de codigos y probarlos para aprender. Muchas gracias.

PD: La sección de trucos que hay, tambien debo introducir el codigo en la sección IMPLEMENTATION?

Gracias

[Sotrono]

Empezado por turminator

La sección de trucos que hay, tambien debo introducir el codigo en la sección IMPLEMENTATION?

La implementación de la función (el código mismo) va en la sección Implementation, pero a veces tambien hay que declararla (solo el encabezado), por ejemplo, en la sección Private o Public de la unidad del Form.
Chequea este hilo.