Заставка

[Ark]

Я пишу небольшую програмку.

Сейчас отрабатываю ввод серийного номера.

Сделал первоначальное сплэш окно с логотипом, которое, если пользователь не успел ввести серийник - предоставляет ему такую возможность.

Если всё правильно - програмка сохраняет сериал в реестре - сплеш закрывается и открывается основное окошко программы.

procedure TForm2.FormShow(Sender: TObject);
var
RegSer: TReginiFile;
Serial: String;

begin
Form2.ClientHeight:=91;
RegSer:=TReginiFile.Create;
RegSer.RootKey:=HKEY_LOCAL_MACHINE;
RegSer.OpenKey('Software',true);
Serial := RegSer.ReadString('ProgName','Serial Number','0');
RegSer.Free;
if serial<>'1234-1234-1234-1234' then
begin
  Form2.ClientHeight:=200;
end
else
begin
  Sleep(2000);
  Form2.Close;
end;
end;

Так вот - когда серийный номер уже в реестре есть - по идее - сплэш окно с логотипом (уже без инструментов ввода серийника, ибо он уже в реестре есть) висит 2 секунды и закрывается, давая возможность программе продолжить.

Но окошко висит явно не 2 секунды и даже не 5, не собираясь закрываться.

В чём проблема?

[Ark]

Да. И основное окно (при ручном закрытии сплеша) больше нельзя двигать по экрану.

[Alex Cones]

if serial<>'1234-1234-1234-1234' then
begin
Form2.ClientHeight:=200;

Получается, если есть серийник в реестре то окно будет висеть, а если нет, то через 2 сек закроется, ты перепутал условия.

P.S. Есть кнопка правка, не пости подряд.

[Mr.Qwerty]

Давно всем известный способ, я б посоветовал бы сделать посовременнее, вот краткий алгоритм работы:
1)Программа выводит случайно сгенерированный код пользователю;
2)Он в свою очередь обращается к вам за получением так называемого пин-кода, который вы генерируете отдельно написанной программкой, причем последний алгоритм не должен быть явно открытым в продукте распространения.
3)Юзерок платит вам денюшки, а вы ему даете код, уля-ля все рады и счастливы...
Хз, потрудиться прийдется хорошенько, но это того уверяю стоит.
Удачи)!+

[Ark]

Ничего я не перепутал.

Код с комменариями:

// В переменную "Serial" записывается значение из реестра
// Если такового не наблюдается - serial = '0'
Serial := RegSer.ReadString('ProgName','Serial Number','0');

RegSer.Free;

// Если serial не равняется истинному серийному номеру
if serial<>'1234-1234-1234-1234' then
begin

// То окошко вытягивается обнажая инструменты для ввода.
  Form2.ClientHeight:=200;
end

// Если же serial равен истинному серийному номеру
else
begin

// Окошко спит 2 секунды и закрывается
  Sleep(2000);
  Form2.Close;
end;

Mr. Qwerty
Я думал об этом. Если при каждом запуске программы, в её неактивизированном состоянии!!!!!!!!!, генерится случайный код - не будет же юзер держать программу открытой до тех пор, пока ему на почту не придёт серийный номер именно для данного кода авторизации. Это значит, что код авторизации надо записывать в реестр.

Я вообще подумывал о том, чтобы сделать привязку к железу. Если кто знает - подскажите где можно посмотреть уникальный идентификационный номер любой железки. В реестре?

Короче - не в этом суть. С защитой я как-бы определился.

Мне моя проблема нозит =)

[BARNEY]

офф:
к сетевушки привяжи и номеру логического диска

[Ark]

Barney - где посмотреть их номера?

Что-то народ не может мне решения подсказать.

На всякий случай - приведу код основы - может я чего-то не понял.

program Project2;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in '..\!!!Ras4et!!!\Unit2.pas' {Form2};

{$R *.res}

begin
  Form2:=TForm2.Create(nil);
  Form2.ShowModal;

  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Может здесь ошибка. =(

[Alex Cones]

  Form2:=TForm2.Create(nil);
  Form2.ShowModal;

Попробуй это перевести в OnCreate первой, а саму первую (Form1) запускать С Visible = FALSE
А на OnClose второй писать Form1.Visible:=TRUE или Form1.Show

[DeKot]

Cчитывай ID компьютера http://www.programmersforum.ru/showt...ghlight=hostid и привязывай к паролю.

[Ark]

Alex Cones - не помогло. =( Проблема осталась.

Dekot - ссылка не работает.