Форум: "Система";
Текущий архив: 2003.03.13;
Скачать: [xml.tar.bz2];
ВнизПривязка программы к железу Найти похожие ветки
← →
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. Они фриварные и дают полное инфо про машину, также заводские номера винта к примеру, и много еще чего - к чему можно привязатся
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2003.03.13;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c