Ofline
Код:
procedure TForm1.Button1Click(Sender: TObject);
var s,s1,s2:string; _ecx,_eax,_edx:longword;
begin
asm
mov eax,1
db $0F,$A2
mov _eax,eax
end;
asm
mov eax,3
db $0F,$A2
mov _ecx,ecx
mov _edx,edx
end;
s := IntToHex(_eax, 8);
s1 := IntToHex(_edx, 8);
s2 := IntToHex(_ecx, 8);
Insert('-', s, 5);
Insert('-', s1, 5);
Insert('-', s2, 5);
ShowMessage('Serial Number: '+s + '-' + s1 + '-' + s2);
end;