Un lugar de encuentro para los programadores de habla hispana

Un lugar de encuentro para los programadores de habla hispana

Buscar

Entrar

Puedes acceder utilizando tu cuenta de usuario del foro.

Si no dispone de cuenta, puede crear una accediendo al formulario de registro del foro.



Cómo obtener el número de serie de una unidad de disco Imprimir
Ideas - Delphi

En este caso, por ejemplo el disco duro. 
 
procedure TForm1.Button1Click(Sender: TObject);
var
  w, Numero: DWord;
begin
  GetVolumeInformation(PChar('C:\'), Nil, 0, @Numero, w, w, nil, 0);
  ShowMessage(InToStr(Numero));
end;
 
 
 
Comentarios (0)
Para escribir un comentario debes estar registrado
< Anterior   Siguiente >
 
Creative Commons License
Los contenidos de la sede del Gupo Albor están publicados bajo una licencia
Creative Commons Reconocimiento-No comercial-Compartir bajo la misma licencia 3.0.
Información legal