Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Привязка программы к железу [D5, Win2k]

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

babaevich (2003-01-15 10:48:00) [1]
А еще также можешь поискать компоненты под делфи msysinfo. Они фриварные и дают полное инфо про машину, также заводские номера винта к примеру, и много еще чего - к чему можно привязатся

babaevich (2003-01-15 10:46:00) [2]
Вяжи к серийному номеру винта, поищи в инете программулю diskid32.cpp называется - она выдает заводские параметры винта, переделай ее на object pascal и юзай

SSS (2003-01-14 18:07:00) [3]
Кто-то сказал:
"Лучший способ защитить программу от пиратского копирования - выход её новой и более лучшей версии"

DC-AC (2003-01-08 13:58:00) [4]
Maksss : изначально плохая идея. Не надо унижать легальных пользователей твоей программы, если они захотят апгрейдить комп. А если они будут каждый день заново присылать тебе ключи для повторной активации, ты не за...шься ?

Maksss (2003-01-08 07:25:00) [5]
спасибо всем .
перед тем как спросить пролистал весь форум по железу и главный .не нашол ни чего >не реже чем через день

MAN-IN-RED (2003-01-08 04:30:00) [6]

> Alex Konshin (08.01.03 03:55)

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

Alex Konshin (2003-01-08 03:55:00) [7]
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 03:41:00) [8]
Вяжы к харду:

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:18:00) [9]
Просто этот вопрос задается не реже чем через день. Скучно...

Maksss (2003-01-08 00:00:00) [10]
это сильно сложно для мастеров?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »