![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Лицинзионные программы
Ilkhom © (2003-12-22 08:55:00)Подскажите пожалуйста, как можно писать лицинзионные прог. т.е. чтобы после инстал не работаль когда будем копировать уже установленный прог. на другой комп. (т.е. как можно защитить от несанкционированной установке).
Заранее блогодарю.
DeadMeat (2004-01-19 22:22:00) [1]Ну допустим это серийный номер не винчестера, а тома...
Intell (2004-01-19 19:32:00) [2]Как узнать серийный номер винчестера?
Создайте на форме кнопку и Label1, дальше обработайте событие OnClick у кнопки:
procedure TForm1.Button1Click(Sender: TObject);
var
SerialNum : dword;
a, b : dword;
Buffer : array [0..255] of char;
begin
if GetVolumeInformation('c:\', Buffer, SizeOf(Buffer), @SerialNum, a, b, nil, 0) then
Label1.Caption := IntToStr(SerialNum);
end;
Evgeniy_K (2004-01-19 17:40:00) [3]За что :) Кстати, помнится какой-то БЭСТ это использовал тоже ;)
Руки надо отрывать вирьмейкерам, но не мне =)
Kerk (2003-12-27 12:51:00) [4]
> Evgeniy_K (27.12.03 10:56) [5]
> Реализована привязка к "псевдозанятым секторам" диска.
За такое руки отрывать надо!!!
Evgeniy_K (2003-12-27 10:56:00) [5]Сделать защиту от копирования. Ищи в инете архив Copyright. Я писал. Реализована привязка, к "псевдозанятым секторам" диска.
GEN++ (2003-12-27 00:40:00) [6]Можно использовать защитный "ключ", установливаемый в LP порт
Pul (2003-12-26 15:52:00) [7]Удалено модератором
nekto (2003-12-26 13:40:00) [8]Удалено модератором
AllDer (2003-12-26 02:30:00) [9]При инсталяции привязывайся к HDD Nomer но это иправляют
cracks