Discussion :

[ouiouioui]

bonjour, je bloque sur une conversion qui me parait correct:

Code :

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

1
2
3
4
5
6
INT nSize = VMProtectGetCurrentHWID(NULL, 0); // get number of required bytes 
char *pBuf = new char[nSize]; // allocate buffer
VMProtectGetCurrentHWID(pBuf, nSize); // obtain hardeare identifier
// use it
delete [] pBuf; // release buffer

et je fait:

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
Procedure TForm3.Button3Click(Sender: TObject);
Var
  Buffer: PChar;
  Size:   Integer;
Begin
  Size := VMProtectGetCurrentHWID(null, 0);
  GetMem(Buffer, Size);
  Try
    VMProtectGetCurrentHWID(Buffer, Size);
    Application.MessageBox(PChar('Votre identifiant matériel est:' + sLineBreak) + Buffer, PChar('Information'), MB_ICONINFORMATION Or MB_OK);
  Finally
    FreeMem(Buffer);
  End;
End;

Delphi me sort sur la ligne rouge:

Un objet constante ne peut être passé comme paramètre Var

Quelqu'un peut m'aider à comprendre? Merci

[Linkin]

nil au lieu de null, non?

[Dr.Who]

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
 
 
interface
 
function VMProtectGetCurrentHWID(Buffer: PAnsiChar; BufferLen: LongWord): LongInt; stdcall; 
 
function VMProtectGetCurrentHWIDText: string; 
 
implementation
 
const
  VMProtectSDK = 'VMProtect32.dll';
 
function VMProtectGetCurrentHWID; external VMProtectSDK name 'VMProtectGetCurrentHWID';
 
function VMProtectGetCurrentHWIDText: string;
var
  pBuf  : PAnsiChar;
  nSize : LongWord;
begin
  result := '';
  nSize := VMProtectGetCurrentHWID(Nil, 0);
  GetMem(pBuf, nSize);
  try
    VMProtectGetCurrentHWID(pBuf, nSize);
    result := StrPas(pBuf);
  finally
    FreeMem(pBuf, nSize);
  end;
end;

[ouiouioui]

Un énorme merci! C'est parfait!

J'ai modifié leur sdk avec ta solution et remplaçé StrPas par String et sa fonctionne