Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > API de Windows
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 05-11-2004
mgc mgc is offline
Registrado
 
Registrado: nov 2004
Posts: 1
Poder: 0
mgc Va por buen camino
obtener el número de serie de un disco duro serial ATA

Por favor me podrían ayudar , como puedo obtener el número de serie de un disco duro serial ATA, ya que las funciones que he encontrado son para discos IDE.
Responder Con Cita
  #2  
Antiguo 05-11-2004
Avatar de unreal4u
unreal4u unreal4u is offline
Miembro
 
Registrado: nov 2004
Ubicación: Temuco, Chile
Posts: 105
Poder: 20
unreal4u Va por buen camino
Unhappy

hay un componente externo que hace eso; se llama diskcontrols 3.0 ; (la verdad es que no sé en qué versión irán ahora; pero por lo menos la última vez que revisé iba en esa versión); lo único malo es que hay que $$$$$, o sea, pagar... En todo caso, busca por "diskcontrols 3.0" en google y te vas a la página para que revises el componente...
Responder Con Cita
  #3  
Antiguo 20-03-2009
edupomar edupomar is offline
Registrado
 
Registrado: sep 2003
Ubicación: Trujillo
Posts: 6
Poder: 0
edupomar Va por buen camino
diskcontrols

diskcontrols lo puedes bajar de este link diskcontrols es una version shareware...
Responder Con Cita
  #4  
Antiguo 27-03-2009
Davidcfres Davidcfres is offline
Miembro
 
Registrado: ago 2007
Ubicación: Francia
Posts: 10
Poder: 0
Davidcfres Va por buen camino
Eso es :

function ExtraitSerieDuDisque:longword;
Var
BuffNom : Array[0..255]Of Char;
BuffSys : Array[0..255]Of Char;
Serie : longword;
Long : longword;
Flags : longword;

Resultat: longword;
Begin
Resultat := 0;

// Obtention des informations sur le lecteur
if GetVolumeInformation(PChar('C:\')
,@BuffNom,SizeOf(BuffNom) // BuffNom contiendra le nom
,@Serie // Serie le numéro de série
,Long
,Flags
,@BuffSys,SizeOf(BuffSys)) Then // BuffSys le type de fichiers
Begin
Resultat := Serie;
End;

result := resultat;
end;

~
GetVolumeInformation : Windows
~

lo siento ... codigo frances .... jajaja

David
Responder Con Cita
  #5  
Antiguo 27-03-2009
Avatar de MAXIUM
MAXIUM MAXIUM is offline
Miembro
 
Registrado: may 2005
Posts: 1.485
Poder: 20
MAXIUM Va camino a la fama
Gratis, hecho por un integrante de Clubdelphi http://neftali.clubdelphi.com/?p=240
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 19:02:41.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi