Привязка программы к железу

← →
Maksss (2003-01-06 15:06) [0]

Доброго времени суток! У меня проблема к чему можно привязать программу на компе? пробовал к биосу но под NT проблема с командой ptr .
Может кто знает как это переделать string(pchar(ptr($FEC71))) или у кого варианты полутше?

← →
Maksss (2003-01-08 00:00) [1]

это сильно сложно для мастеров?

← →
Alex Konshin (2003-01-08 03:18) [2]

Просто этот вопрос задается не реже чем через день. Скучно...

← →
MAN-IN-RED © (2003-01-08 03:41) [3]

Вяжы к харду:

procedure TForm1.Button1Click(Sender: TObject); var VolName, FileSysName :array [0..MAX_PATH-1] of Char; FileSysFlags, VolSerialNum, MaxCompLength :DWord; begin GetVolumeInformation("C:\",VolName,Max_Path, @VolSerialNum, MaxCompLength, FileSysFlags, FileSysName, Max_Path); Label1.Caption := "HDD info:"+#13 +"Vol. Name: "+VolName+#13 +"Serial Number: $"+IntToHex(VolSerialNum,8)+#13 +"Comp. Length: "+IntToStr(MaxCompLength)+#13 +"Flags: $"+IntToHex(FileSysFlags,4)+#13 +"FileSys. Name: "+FileSysName; end;

← →
Alex Konshin (2003-01-08 03:55) [4]

2 MAN-IN-RED:
Volume serial number легко получить, но его также легко и поменять. Более того, при переформатировании он тоже меняется.
Хуже того, при клонировании он НЕ изменяется, так что можно купив одну лицензию понаставить на все компьютеры в фирме, если это нужно. На sysinternal видел утилитку, которая судя по описанию как таки меняет volume serial number (не уверен - сам не пробовал, но что еще там можно назвать как VolumeId?)

Уфф...(занудно, без этузиазма): У меня на сайте можешь взять примеры как достать s/n IDE и SCSI диска (именно физического диска). Но я сразу могу предупредить, что тут еще много подводных камней, так что одумайся, пока не началось...
http://home.earthlink.net/~akonshin/

← →
MAN-IN-RED © (2003-01-08 04:30) [5]

> Alex Konshin (08.01.03 03:55)

Спасибо, буду знать!

← →
Maksss (2003-01-08 07:25) [6]

спасибо всем .
перед тем как спросить пролистал весь форум по железу и главный .не нашол ни чего >не реже чем через день

← →
DC-AC (2003-01-08 13:58) [7]

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

← →
SSS (2003-01-14 18:07) [8]

Кто-то сказал:
"Лучший способ защитить программу от пиратского копирования - выход её новой и более лучшей версии"

← →
babaevich (2003-01-15 10:46) [9]

Вяжи к серийному номеру винта, поищи в инете программулю diskid32.cpp называется - она выдает заводские параметры винта, переделай ее на object pascal и юзай

← →
babaevich (2003-01-15 10:48) [10]

А еще также можешь поискать компоненты под делфи msysinfo. Они фриварные и дают полное инфо про машину, также заводские номера винта к примеру, и много еще чего - к чему можно привязатся

Привязка программы к железу Найти похожие ветки