Как сделать Trial - программу?

[HAMMAN]

Есть дипломный проект на Delphi - подскажите как сделать Trial программу? И вообще реально ли это?

[Olympian]

Ты хочешь готовую программу, исходники которой у тебя есть, превратить в триалку этой программы?
Если да - то
1)Где-нибудь храни инф-ю - триал / полная. ПРичем не в открытом виде лучше, но если тебе просто так, не для продаж и тп - просто в реестре.Или файлик защитный какой-нибудь
2)По программе вставь проверку на триал/полная прога.
К примеру вот есть у тебя просмотрщик изображений.

функция рисования изображения

Draw
...
{Рисуем саму картинку}
if (Trial == True) then
{Пишем поверх картинки ТРИАЛ}

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

Ну либо - просто отключить какие-то функции

[dr.Chas]

Писал сегодня уже, тока в другом разделе)))

Простой способ, в качестве примера триала:

uses  Registry;

procedure TForm2.RzBmpButton1Click(Sender: TObject);
var n:integer;  //количество запусков будем считывать сюда
    Reg: TRegistry;
begin
  Reg:=TRegistry.Create;
  with Reg do
  begin
    OpenKey('software', True);
    OpenKey('TrialProg', True);    //HKEY_CURRENT_USER\Software\TrialProg
    If ValueExists('MaxRun') then  //если возвращает значение true, значит есть параметр с 
     //именем MaxRun и для него определено значение
    begin
      n:=ReadInteger('MaxRun')-1;  //отнимаем ещё один запуск
      if n>=0 then WriteInteger('MaxRun', N); //записываем в реестр
    end else   //возвращает false значит это первый раз, либо пользователь удалил))))
    begin
      N:=10;   //задаём кол-во запусков
      WriteInteger('MaxRun', N);  //записываем в реестр
    end;
    Free;
  end;
  If n>0 then  //больше 0 значит запускаем программу
  begin
    Application.Create(TForm1, Form1);
  end else  //если не больше 0, значит
  begin
    //говарим пользователю что срок лицензии закончился
    MessageBeep(MB_ICONASTERISK);   
    MessageDlg('Срок лицензии закончился.', mtInformation, [mbOk], 0);
  end;
end;

P.S.: Пример взят из книги "В.В. Фараонов "Delphi Программирование на языке выского уровня".