en win7 no funciona esta funcion pa sacar ID unico del disco duro

		Foros Club Delphi > Principal > Varios
en win7 no funciona esta funcion pa sacar ID unico del disco duro

Herramientas

Buscar en Tema

Desplegado

10-05-2012

olbeup

Miembro

Registrado: jul 2005

Ubicación: Santiago de la Ribera (España)

Posts: 688

Poder: 21

Mira ésta si te funciona

Código Delphi [-]function GetVolumeSeriealNumber(const Drive: TFileName): LongWord;
var
  VolumeName, FilesystemName: Array[0..MAX_PATH -1] of char;
  VolumeSerialNumber, MaxFilenameLength, FileSystemFlags: LongWord;
begin
  GetVolumeInformation(PChar(IncludeTrailingBackslash(Drive)),
    VolumeName, MAX_PATH, @VolumeSerialNumber, MaxFilenameLength,
    FileSystemFlags, FilesystemName, MAX_PATH);

  Result := VolumeSerialNumber;
end;

Un saludo

__________________
Al hacer una consulta SQL, haz que los demás te entiendan y disfruten de ella, será tú reflejo de tú saber.

« Tema Anterior | Próximo Tema »

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

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Mi programa no funciona en Win7 64	Paulao	Varios	7	13-03-2012 13:34:21
¿Función para determinar la capacidad del disco duro?	Roilo	API de Windows	8	30-12-2008 19:07:30
Disco Duro Externo	Fenareth	Varios	8	25-07-2008 16:45:30
Imagen de disco duro de sistema a un disco externo usb	Wonni	Windows	20	05-06-2007 13:11:55
Funcion para saber si un registro .dbf esta bloqueado ( en red no me funciona )	Wonni	Conexión con bases de datos	7	06-10-2006 18:49:32

La franja horaria es GMT +2. Ahora son las 01:12:54.