Leonardo ...
Peguei a dica no site (http://www.delphi.eti.br) tem muita coisa boa neste
site, basta você saber procurar...
No windows 95, 98 e ME você precisa copiar o arquivo "Smartvsd.vxd" para a
pasta "c:windows\system\iosubsys\" e reinicar o windows para que possa
funcionar.
*procedure* ChangeByteOrder( *var* Data; Size : Integer );
*var*
ptr : PChar;
i : Integer;
c : Char;
*begin*
ptr := @Data;
*for* i := 0 *to* (Size *shr* 1)-1 *do*
*begin*
c := ptr^;
ptr^ := (ptr+1)^;
(ptr+1)^ := c;
Inc(ptr,2);
*end*;
*end*;
*{ função que pega o serial number FÍSICO do HD e retorna string }*
*function* GetIdeDiskSerialNumber : *String*;
*type*
TSrbIoControl *=* *packed* *record*
HeaderLength: ULONG;
Signature: *Array*[0..7] *of* Char;
Timeout: ULONG;
ControlCode: ULONG;
ReturnCode: ULONG;
Length: ULONG;
*end*;
SRB_IO_CONTROL *=* TSrbIoControl;
PSrbIoControl *=* ^TSrbIoControl;
TIDERegs *=* *packed* *record*
bFeaturesReg : Byte; *// especificar "comandos" SMART*
bSectorCountReg : Byte; *// registro de contador de setor*
bSectorNumberReg : Byte; *// registro de número de setores*
bCylLowReg : Byte; *// valor de cilindro (byte mais baixo)*
bCylHighReg : Byte; *// valor de cilindro (byte mais alto)*
bDriveHeadReg : Byte; *// registro de drive/cabeça*
bCommandReg : Byte; *// comando IDE*
bReserved : Byte; *// reservado- tem que ser zero*
*end*;
IDEREGS *=* TIDERegs;
PIDERegs *=* ^TIDERegs;
TSendCmdInParams *=* *packed* *record*
cBufferSize : DWORD;
irDriveRegs : TIDERegs;
bDriveNumber : Byte;
bReserved : *Array*[0..2] *of* Byte;
dwReserved : *Array*[0..3] *of* DWORD;
bBuffer : *Array*[0..0] *of* Byte;
*end*;
SENDCMDINPARAMS *=* TSendCmdInParams;
PSendCmdInParams *=* ^TSendCmdInParams;
TIdSector *=* *packed* *record*
wGenConfig : Word;
wNumCyls : Word;
wReserved : Word;
wNumHeads : Word;
wBytesPerTrack : Word;
wBytesPerSector : Word;
wSectorsPerTrack : Word;
wVendorUnique : *Array*[0..2] *of* Word;
sSerialNumber : *Array*[0..19] *of* Char;
wBufferType : Word;
wBufferSize : Word;
wECCSize : Word;
sFirmwareRev : *Array*[0..7] *of* Char;
sModelNumber : *Array*[0..39] *of* Char;
wMoreVendorUnique : Word;
wDoubleWordIO : Word;
wCapabilities : Word;
wReserved1 : Word;
wPIOTiming : Word;
wDMATiming : Word;
wBS : Word;
wNumCurrentCyls : Word;
wNumCurrentHeads : Word;
wNumCurrentSectorsPerTrack : Word;
ulCurrentSectorCapacity : ULONG;
wMultSectorStuff : Word;
ulTotalAddressableSectors : ULONG;
wSingleWordDMA : Word;
wMultiWordDMA : Word;
bReserved : *Array*[0..127] *of* Byte;
*end*;
PIdSector *=* ^TIdSector;
*const*
IDE_ID_FUNCTION *=* $EC;
IDENTIFY_BUFFER_SIZE *=* 512;
DFP_RECEIVE_DRIVE_DATA *=* $0007c088;
IOCTL_SCSI_MINIPORT *=* $0004d008;
IOCTL_SCSI_MINIPORT_IDENTIFY *=* $001b0501;
DataSize *=* sizeof(TSendCmdInParams)-1+IDENTIFY_BUFFER_SIZE;
BufferSize *=* SizeOf(SRB_IO_CONTROL)+DataSize;
W9xBufferSize *=* IDENTIFY_BUFFER_SIZE+16;
*var*
hDevice : THandle;
cbBytesReturned : DWORD;
pInData : PSendCmdInParams;
pOutData : Pointer; *// PSendCmdOutParams*
Buffer : *Array*[0..BufferSize-1] *of* Byte;
srbControl : TSrbIoControl *absolute* Buffer;
*begin*
Result := '';
FillChar(Buffer,BufferSize,#0);
*if* Win32Platform=VER_PLATFORM_WIN32_NT *then*
*// Windows NT, Windows 2000, Windows XP*
*begin*
*// recuperar handle da porta SCSI*
hDevice := CreateFile('\\.\Scsi0:',
*// Nota: '\\.\C:' precisa de privilégios administrativos*
GENERIC_READ *or* GENERIC_WRITE, FILE_SHARE_READ *or* FILE_SHARE_WRITE, *nil
*, OPEN_EXISTING, 0, 0);
*if* hDevice=INVALID_HANDLE_VALUE *then* Exit;
*try*
srbControl.HeaderLength := SizeOf(SRB_IO_CONTROL);
System.Move('SCSIDISK',srbControl.Signature,8);
srbControl.Timeout := 2;
srbControl.Length := DataSize;
srbControl.ControlCode := IOCTL_SCSI_MINIPORT_IDENTIFY;
pInData := PSendCmdInParams(PChar(@Buffer)
+SizeOf(SRB_IO_CONTROL));
pOutData := pInData;
*with* pInData^ *do*
*begin*
cBufferSize := IDENTIFY_BUFFER_SIZE;
bDriveNumber := 0;
*with* irDriveRegs *do*
*begin*
bFeaturesReg := 0;
bSectorCountReg := 1;
bSectorNumberReg := 1;
bCylLowReg := 0;
bCylHighReg := 0;
bDriveHeadReg := $A0;
bCommandReg := IDE_ID_FUNCTION;
*end*;
*end*;
*if* *not* DeviceIoControl( hDevice, IOCTL_SCSI_MINIPORT, @Buffer,
BufferSize, @Buffer, BufferSize, cbBytesReturned, * nil* ) *then* Exit;
*finally*
CloseHandle(hDevice);
*end*;
*end*
*else*
*begin*
*// Windows 95 OSR2, Windows 98, Windows ME*
hDevice := CreateFile( '\\.\SMARTVSD', 0, 0, *nil*, CREATE_NEW, 0, 0 );
*if* hDevice=INVALID_HANDLE_VALUE *then* Exit;
*try*
pInData := PSendCmdInParams(@Buffer);
pOutData := @pInData^.bBuffer;
*with* pInData^ *do*
*begin*
cBufferSize := IDENTIFY_BUFFER_SIZE;
bDriveNumber := 0;
*with* irDriveRegs *do*
*begin*
bFeaturesReg := 0;
bSectorCountReg := 1;
bSectorNumberReg := 1;
bCylLowReg := 0;
bCylHighReg := 0;
bDriveHeadReg := $A0;
bCommandReg := IDE_ID_FUNCTION;
*end*;
*end*;
*if* *not* DeviceIoControl( hDevice, DFP_RECEIVE_DRIVE_DATA, pInData,
SizeOf(TSendCmdInParams)-1, pOutData, W9xBufferSize, cbBytesReturned, *nil*)
*then* Exit;
*finally*
CloseHandle(hDevice);
*end*;
*end*;
*with* PIdSector(PChar(pOutData)+16)^ *do*
*begin*
ChangeByteOrder(sSerialNumber,SizeOf(sSerialNumber));
SetString(Result,sSerialNumber,SizeOf(sSerialNumber));
*end*;
*end*;
Para usar:
Label1.Caption := GetIdeDiskSerialNumber;
Não sei porque mas a função retorna a *string* com 12 espaços antes
*do*serial, então usei a função Trim(), para eliminar os espaços
Label1.Caption := Trim(GetIdeDiskSerialNumber);
*Autor desta dica:
* Marcio Soares Viterbo
--
Sylvio Rodrigues
fone: (17) 8112-9812
e-mail/msn: [EMAIL PROTECTED]
Em 13/04/06, leonardo302021 <[EMAIL PROTECTED]> escreveu:
>
> Alguém conhece alguma função que capture o 'número físico' da HD?
> Eu até tenho uma função parecida, só que ela pega o 'número lógico', já
> que esse número varia de partição para partição e é alterado se a HD
> for formatada. Gostaria de obter um número (ou até qualquer outra
> informção) da HD que fosse plenamente constante.
>
> Grato
> Leonardo Leite
>
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
