Comportamiento insólito de los controles

[[newtron]]

Neftali.

Veo que tienes pocos discos duros, si te hace falta alguno me lo dices y te mando un par de ellos.

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

Empezado por newtron

Veo que tienes pocos discos duros, si te hace falta alguno me lo dices y te mando un par de ellos.

En realidad no tengo tantos, no te pienses. No se si he comentado arriba que eso son particiones y además incluyen las mapeadas en Red.
Si te fijas hay 2 de red, dos CD/DVD, de los cuales uno es una unidad virtual (la uso para probar imágenes ISO, CUE,...).

De los 4 locales que quedan, uno es disco RAM de 400 MB (aunque aparece como local), por lo tanto tampoco es "real".
De las tres particiones que quedan, una es de sistema, otra para datos (DISCO 1) y la tercera es de backup (DISCO 2).

Así que al final la cosa es bastante "simplona", como puedes ver.

[Tortuguica]

Gracias, Neftali. De todas formas, yo creo que es mejor utilizar la memoria usb, porque el usuario podría acceder a la aplicación desde cualquier PC, mientras que si es el número de serie es de un disco duro, solo podrá trabajar con ese. Bueno, en cualquier caso, no tengo nada decidido todavía. Gracias de nuevo. Un saludo.

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

Empezado por Tortuguica

...yo creo que es mejor utilizar la memoria usb, porque el usuario podría acceder a la aplicación desde cualquier PC, mientras que si es el número de serie es de un disco duro, solo podrá trabajar con ese.

Ok. A eso me refería cuando te pedía que me explicaras algo más.
Si una premisa es que el usuario pueda usar la aplicaciónen varios equipos, esa puede ser una buena opción y la opción del serial del disco no es válida.

[Tortuguica]

Hola de nuevo. Perdón por el inciso, pero es que estamos de fiestas en mi pueblo. Neftalí, resulta que he ejecutado el código que has puesto, y no me da el mismo número de serie que cuando lo hago con el mío . ¿Tú sabes cuántos números de serie tiene una unidad? Un saludo.

[ecfisa]

Hola Tortuguica.

El número de serie lógico dado por MS-DOS/Windows a un disco rígido, está compuesto por ocho dígitos hexadecimales.

Te agrego otra función para obtenerlo:

Código Delphi [-]
function HDSerial(const lpRootPathName: PChar): string;
var
  lpMaximumComponentLength: DWORD;
  lpFileSystemFlags: DWORD;
  lpVolumeSerialNumber: DWORD;
  lpVolumeNameBuffer:  array[0..MAX_PATH] of Char;
begin
  GetVolumeInformation(PChar(lpRootPathName),
                       @lpVolumeNameBuffer,
                       SizeOf(lpVolumeNameBuffer),
                       @lpVolumeSerialNumber,
                       lpMaximumComponentLength,
                       lpFileSystemFlags, nil, 0);
  Result := IntToHex(HiWord(lpVolumeSerialNumber),4) +
            IntToHex(LoWord(lpVolumeSerialNumber),4);
end;

Llamada de ejemplo:

Código Delphi [-]
  ShowMessage(HDSerial('C:\'));

Si te interesa guardarlo cifrado en el registro, puse un ejemplo muy simple de como hacerlo al final de este hilo: Guardar datos en un ejecutable

Un saludo.

Edito: El argumento debe ser 'Letra_Unidad:\' no 'Letra_Unidad:'. Por ejemplo: 'D:\' es correcto, 'D:' no.

[Tortuguica]

Gracias, Ecfisa. Un saludo.