Discussion :

[Coussati]

salut

j'aimerais identifier un pc "simplement" = pas de technique hardcore lol

parce que je voulais le faire avec le Numero Logique Du Dique Dur, maislecode que j'ai trouvé n'est pas compatible vista

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
 
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;
 
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;
 
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;

c'est bien domage car ça fonctionne sur mon xp pro

avant j'utilisais le n° du disque (GetVolumeInformation) mais je me suis rendu compte qu'il n'était pas unique

ce serait bien un code qui trouve le n° logique sur les 2 os, sinon :

le mieux serait d'avoir un algo compatible xp/vista sans utiliser de compo (si possible)

j'avais pensé à garder ce que j'utilise actuellement ?

GetVolumeInformation + rajouter autres choses (à vous les propositions :p)

j'ai pensé à la carte mac mais bon, on peut changer le n° et ça peut être relou

mon prob c surtout la compatibilité xp / vista

[andreditdd]

Bonjour,
il me semble que la carte réseau à un numéro unique.

André

[SergioMaster]

il y a peut être un moyen simple d'obtenir le n°de licence

[Reisubar]

j'ai pensé à la carte mac mais bon, on peut changer le n° et ça peut être relou

Le processeur peut être changé, la RAM peut être changée, le disque dur peut être remplacé, les informations du registre peuvent-être modifiées... Il n'y a pas de solution miracle. Néanmoins, utiliser l'adresse MAC de la carte réseau reste pour moi la plus fiable, puisque elle est déjà censée être unique et qu'il est moins fréquent de remplacer une carte réseau qu'un disque dur. Pour les changements intentionnels d'adresse mac, ca reste un cas rare...

[neodelphi2007]

En plus maintenant la carte réseau est intégrée à la carte mère, on change plus rarement de carte mère, sinon on change tout ;-)

"Utiliser l'adresse MAC de la carte réseau" reste pour moi aussi la meilleur des solutions

[Coussati]

bon ok je me résous à utiliser la carte mac

mais une petite ()

comment ça se fait qu'on puisse changer son n° ? si c'est sencé être unique ?

peut être en changeant le n° on prendra le n° d'une carte pas encore créé ? :p


o faite le code fournit dans la faq est fiable pour xp / vista ?

[mmsalem]

Excusez-moi chers copains de detourner votre attention sans rien ajouter.
J'utilise deja cette routine a des fins similaires et elle renvvoie correctement le numéro de série du disque physique mais en migrant le code de Delphi 7 entrprise vers Delphi 2009 Architecte la fonction failli et renvoie le message (Indique deux Numeros de Version Incompatibles) recupuré par la fonction GetLasterror.
J'attends si quelqu'un puisse m'éclairer à l'adapter. L'OS est toujours Xp SP2.

Amicalement

[Droïde Système7]

Bonsoir,

Que penseriez-vous de l'identificateur de produit ?

Numéro unique de chez unique, non ?

Ce dernier est dispo sous CMD "SystemInfo" avec d'autres info.

Existe certainement un API afin de le récupérer directement ?

@+