Obtener Numero de serie de fabrica de pendrive

[Casimiro Notevi]

Empezado por buenarquero

Es la carita que aparece en su primera respuesta del post del que he adjuntado el enlace

Ah, eso ya no existe.
Pero echa un vistazo a estos enlaces:
http://www.clubdelphi.com/foros/showthread.php?t=47683
http://www.clubdelphi.com/foros/showthread.php?t=53814
http://www.clubdelphi.com/foros/showthread.php?t=64774

[buenarquero]

Empezado por Casimiro Notevi

Ah, eso ya no existe.
Pero echa un vistazo a estos enlaces:
http://www.clubdelphi.com/foros/showthread.php?t=47683
http://www.clubdelphi.com/foros/showthread.php?t=53814
http://www.clubdelphi.com/foros/showthread.php?t=64774

Bueno, Gracias Casimiro Notevi, pero ya he probado todo lo que me adjuntas. El componente de Neftalí no funciona en windows 7, el enlace de Seoane no funciona y el código de Mav solo da el número de serie del disco duro conectado al puerto IDE.

[Casimiro Notevi]

Empezado por buenarquero

Bueno, Gracias Casimiro Notevi, pero ya he probado todo lo que me adjuntas. El componente de Neftalí no funciona en windows 7, el enlace de Seoane no funciona y el código de Mav solo da el número de serie del disco duro conectado al puerto IDE.

¿Qué cosa no funciona en w7?, pregunta a Neftali.
La web de seoane: https://delphi.jmrds.com/ puedes preguntarle también.

[[escafandra]]

Código Delphi [-]
function Search(hParent: HKEY; var SubKey: ShortString): LongBool;
var
 hChild: HKEY;
 Index: Cardinal;
 Data: ShortString;
begin
 Index := 0;
 RegOpenKey(hParent, @SubKey[1], hChild);
 RegQueryValue(hChild, 'ParentIdPrefix', Data, SizeOf(Data));
 Result := not LongBool(lstrcmp(@Data, @Device));
 while not Result and (RegEnumKey(hChild, Index, @SubKey[1], SizeOf(SubKey) - 1) = ERROR_SUCCESS) do
  begin
   Result := Search(hChild, SubKey);
   Inc(Index);
  end;
 RegCloseKey(hChild);
end;

function usbGetSerial;
var
 lpSerialNumber: PChar;
 hKey: Windows.HKEY;
 Index: Integer;
 Value: Char;
begin
 Result := False;
 ValueName[12] := Drive;
 RegOpenKey(HKEY_LOCAL_MACHINE, 'SYSTEM\MountedDevices', hKey);
 RegQueryValue(hKey, @ValueName, Device, SizeOf(Device));
 RegCloseKey(hKey);
 Index := 0;
 repeat if Device[(Index + 3) * 2 + 54] <> '#' then
  Value := Device[Index * 2 + 54] else Value := #0;
  Device[Index] := Value;
  Inc(Index);
 until Value = #0;
 SerialNumber[0] := #0;
 lstrcpy(@SerialNumber[1], 'SYSTEM\CurrentControlSet\Enum\USBSTOR');
 if (Device[0] <> #0) and Search(HKEY_LOCAL_MACHINE, SerialNumber) then
  begin
   lpSerialNumber := @SerialNumber[1];
   repeat Inc(SerialNumber[0]);
    Inc(lpSerialNumber);
    if lpSerialNumber[0] = '&' then
     lpSerialNumber[0] := #0;
   until lpSerialNumber[0] = #0;
   Result := True;
  end;
end;

Saludos

[Casimiro Notevi]

[buenarquero]

Muchas gracias escafandra, voy a probarlo. Ya os digo como fue.

[buenarquero]

Bueno, pues parece que no hay suerte. El código que me has puesto, escafandra, no funciona. es posible que falte poner algo en el uses, pero desconozco el que. Me da todos estos errores:

[Error] Unit1.pas(34): Incompatible types: 'ShortString' and 'PAnsiChar'
[Error] Unit1.pas(34): Types of actual and formal var parameters must be identical
[Error] Unit1.pas(35): Undeclared identifier: 'Device'
[Error] Unit1.pas(44): Function needs result type
[Error] Unit1.pas(52): Undeclared identifier: 'ValueName'
[Error] Unit1.pas(52): Undeclared identifier: 'Drive'
[Error] Unit1.pas(54): Undeclared identifier: 'Device'
[Error] Unit1.pas(54): Types of actual and formal var parameters must be identical
[Error] Unit1.pas(62): Undeclared identifier: 'SerialNumber'
[Error] Unit1.pas(64): Operator not applicable to this operand type
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'