Лицинзионные программы

← →
Ilkhom (2003-12-22 08:55) [0]

Подскажите пожалуйста, как можно писать лицинзионные прог. т.е. чтобы после инстал не работаль когда будем копировать уже установленный прог. на другой комп. (т.е. как можно защитить от несанкционированной установке).
Заранее блогодарю.

← →
AllDer (2003-12-26 02:30) [1]

При инсталяции привязывайся к HDD Nomer но это иправляют
cracks

← →
nekto (2003-12-26 13:40) [2]

Удалено модератором

← →
Pul (2003-12-26 15:52) [3]

Удалено модератором

← →
GEN++ © (2003-12-27 00:40) [4]

Можно использовать защитный "ключ", установливаемый в LP порт

← →
Evgeniy_K (2003-12-27 10:56) [5]

Сделать защиту от копирования. Ищи в инете архив Copyright. Я писал. Реализована привязка, к "псевдозанятым секторам" диска.

← →
Kerk © (2003-12-27 12:51) [6]

> Evgeniy_K (27.12.03 10:56) [5]
> Реализована привязка к "псевдозанятым секторам" диска.

За такое руки отрывать надо!!!

← →
Evgeniy_K (2004-01-19 17:40) [7]

За что :) Кстати, помнится какой-то БЭСТ это использовал тоже ;)
Руки надо отрывать вирьмейкерам, но не мне =)

Как узнать серийный номер винчестера?

Создайте на форме кнопку и 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;

Ну допустим это серийный номер не винчестера, а тома...

Лицинзионные программы Найти похожие ветки