>  и "железный" MAC при большом желании можно сменить


Если рассматривать все клинические проявления, то вообще ничего написать не получится.

[20] : Согласен. Но, вспомним одну умную мысль : правильно поставленная задача - наполовину решенная задача. Поэтому, подождем ответа топикстартёра. Если "привязать" сетевую программу к компам, включенным в сеть - это одно. Если "сделать так, чтобы програма работала только на одной машине" - это уже сложнее.

> это уже сложнее.


Всё просто: комп выдирается из сети, из него удаляются все дисководы, usb-порты и проч. ус-ва передачи информации. Главное - не забыть до этого поставить туда прогу

я так и не понял, для чего это нужно? какие требования к уникальности итп? ...

> я так и не понял, для чего это нужно?

Насколько я понял из топика на Королевстве никаких серьёзных требований нет. Изначальное требование уникального серийного номера только дань моде. Типа привязка к железу это круто!

тогда серийник винта (на котором ОС) и вперед, ибо это самая менее заменяемая деталь)

[25] А какими методами Вы получаете серийник винта на Wista/Win7 под пользователем ?

Ладно всем огромное спасибо, пожалуй соглашусь, что уникальность рабой станции вычислить не возможно, особенно под учетной записью без административных прав.

function getid:string;   //получить id винта
var
 VolumeName,
 FileSystemName : array [0..MAX_PATH-1] of Char;
 VolumeSerialNo : DWord;
 MaxComponentLength,FileSystemFlags: Cardinal;
begin
 GetVolumeInformation('C:\',VolumeName,MAX_PATH,@VolumeSerialNo,MaxComponentLengt h,FileSystemFlags, FileSystemName,MAX_PATH);
 result:=IntToHex(VolumeSerialNo, 8);
end;

Наклеить бирку с уникальным ID