vladikokk
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подробнее... Нашел на днях код для определения серийного номера процессора. Хотел бы использовать его для привязки по железу. но тут антивирусы повставали и ругаются. вот при добавлении этого кода в программу пишет win32-бла бла траляля . Как сделать что бы не агрились или предложите по чему еще более удобно привязывать по железу. кроме жесткого диска и данных которые любой школьник может изменить погуглив.
unit Unit1;
interface
uses
SysUtils, Types, Classes, Variants, QTypes, QGraphics, QControls, QForms,
QDialogs, QStdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.xfm}
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;
end. [/more] |
Всего записей: 1 | Зарегистр. 27-06-2014 | Отправлено: 23:05 27-06-2014 | Исправлено: vladikokk, 23:15 27-06-2014 |
|
