Как получить уникальный номер компьютера?

[paravoz1k]

Возник такой вопрос
Как с помощью делфи получить уникальный номер компьютера, или какой-либо уникальный номер процессора и прочее.
Для чего необходимо: Для защиты программ от распространения, т.е. программа будет привязываться к номеру.
Благодарю заранее за ответ.

[true1]

получи серийник жесткого:

procedure TForm1.Button1Click(Sender: TObject);
var
VolumeSerialNumber : DWORD;
MaximumComponentLength : DWORD;
FileSystemFlags : DWORD;
SerialNumber : string;
begin
GetVolumeInformation('C:\',  nil, 0, @VolumeSerialNumber,
MaximumComponentLength, FileSystemFlags,  nil,  0);
SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) +   '-' +
IntToHex(LoWord(VolumeSerialNumber), 4);  Memo1.Lines.Add(SerialNumber);
end;

[paravoz1k]

true1 спасибо. То что нужно.

[vatik]

Сообщение от true1

получи серийник жесткого:

procedure TForm1.Button1Click(Sender: TObject);
var
VolumeSerialNumber : DWORD;
MaximumComponentLength : DWORD;
FileSystemFlags : DWORD;
SerialNumber : string;
begin
GetVolumeInformation('C:\',  nil, 0, @VolumeSerialNumber,
MaximumComponentLength, FileSystemFlags,  nil,  0);
SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) +   '-' +
IntToHex(LoWord(VolumeSerialNumber), 4);  Memo1.Lines.Add(SerialNumber);
end;

Придумай что-нибудь лучшее - как в делфи прочитать серийный номер процессора - ответь на vatik@ua.fm - если такой умник

[cargo29]

а для чего ставиться этот знак @ тут @VolumeSerialNumber

[Serge_Bliznykov]

а для чего ставиться этот знак @ тут @VolumeSerialNumber

так передаётся адрес объекта.

вот, из хелпа

Addr function

Returns a pointer to a specified object.

Unit

System

Category

pointer and address routines

function Addr(X): Pointer;

Description

The Addr function returns the address of a specified object. X is any variable, procedure or function identifier. The result is a pointer to X.

The result of Addr is of the predefined type Pointer, which means that it is assignment-compatible with all pointer types but can't be dereferenced directly without a typecast.

Note: Addr is equivalent to the @ operator.

[xrenomx]

Сообщение от cargo29

а для чего ставиться этот знак @ тут @VolumeSerialNumber

Для этого необходимо разобрать тему указателей / ссылок.

Пример:

var
q:pointer;
str:string;
begin
q:=@Str; // Указателю присваивается ссылка на строку
Str:='hello world'; // Присваивается значение строки
edit1.text:=String(q^); // Вывод текста
end;

[Stilet]

получи серийник жесткого:

А если я захочу ЖД поменять? Накрылась прога? Может тады фтопку такую прогу даже если я за нее заплатил?

[Alter]

Это тупиковый путь, защита по железу.

[cargo29]

Сообщение от xrenomx

Для этого необходимо разобрать тему указателей / ссылок.

Пример:

var
q:pointer;
str:string;
begin
q:=@Str; // Указателю присваивается ссылка на строку
Str:='hello world'; // Присваивается значение строки
edit1.text:=String(q^); // Вывод текста
end;

Спасибо а то в книге читал и ничего не понял по этому поводу... только приемущества какие ? не лече было бы сразу указать переменную строки?