Discussion :

[ouiouioui]

bonjour, j'ai des souci avec le SDK de VMProtect ceci fonctionne pas je comprend pas, aucune erreur juste un false en retour,

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
Procedure TForm3.btRegisterClick(Sender: TObject);
Var
  pSerialData: PVMProtectSerialNumberData;
  nSize:       Integer;
Begin
      nSize := SizeOf(pSerialData);
      GetMem(pSerialData, nSize);
      Try
        If VMProtectGetSerialNumberData(pSerialData, nSize) Then
        Begin
          lInfosSerial.Caption := 'Name: ' + pSerialData.wUserName;
        End;
      Finally
        FreeMem(pSerialData, nSize);
      End;
End;

le sdk:

Code :

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

1
2
3
4
5
6
7
8
 
  PVMProtectSerialNumberData = ^TVMProtectSerialNumberData;
  TVMProtectSerialNumberData = packed record
   nState: Longword;
   ...
  End;
 
  function VMProtectGetSerialNumberData(Data: PVMProtectSerialNumberData; DataSize: Integer): Boolean; stdcall;

j'ai essayé pSerialData := nil; avant l'appel mais la fonction renvoie false
le serial est bon c'est sur.

merci d'avance

Dr.Who si tu passe je parie que ta la réponse

[ShaiLeTroll]

Tu lui passe la taille du pointeur et non la taille de la structure, d'ailleurs, euh, tu n'alloue que 4 octets dans pSerialData puisque SizeOf(pSerialData) renvoie 4, tu peux le faire plus simplement

Code :

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

1
2
3
4
5
6
7
8
9
Procedure TForm3.btRegisterClick(Sender: TObject);
Var
  SerialData: TVMProtectSerialNumberData;
Begin
        If VMProtectGetSerialNumberData(@SerialData, SizeOf(SerialData)) Then
        Begin
          lInfosSerial.Caption := 'Name: ' + SerialData.wUserName;
        End;
End;

[ouiouioui]

merci je suis pas très doué avec les pointeurs avec un petit ^ c'est parfait

Code :

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

      nSize := SizeOf(pSerialData^);

merci pour ton aide!