home *** CD-ROM | disk | FTP | other *** search
/ Prima Shareware 3 / DuCom_Prima-Shareware-3_cd1.bin / PROGRAMO / delphi / RTREGIST / DEMOS / PASCAL / UNIT1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-13  |  2.1 KB  |  102 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, ExtCtrls, Menus;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     MainMenu1: TMainMenu;
  12.     System1: TMenuItem;
  13.     Exit1: TMenuItem;
  14.     Delete1: TMenuItem;
  15.     Lock1: TMenuItem;
  16.     Registration1: TMenuItem;
  17.     Registernow1: TMenuItem;
  18.     N1: TMenuItem;
  19.     Help1: TMenuItem;
  20.     About1: TMenuItem;
  21.     procedure Exit1Click(Sender: TObject);
  22.     procedure Lock1Click(Sender: TObject);
  23.     procedure Registration1Click(Sender: TObject);
  24.     procedure Registernow1Click(Sender: TObject);
  25.     procedure FormCreate(Sender: TObject);
  26.     procedure About1Click(Sender: TObject);
  27.   private
  28.     { Private-Deklarationen }
  29.   public
  30.     { Public-Deklarationen }
  31.   end;
  32.  
  33. const
  34.   cRegVer    = 'DEMO Registered Version';
  35.   cDemoVer    = 'DEMO Unregistered Version. You have %d more %s to try it out!';
  36.   cPrg = 'ProductKey';
  37.  
  38. var
  39.   Form1: TForm1;
  40.   Cnt: longint;
  41.   Lock: integer;
  42.  
  43. implementation
  44.  
  45. {$R *.DFM}
  46.  
  47. uses
  48.     RtRegw32, Unit2, Unit4;
  49.  
  50. procedure TForm1.Exit1Click(Sender: TObject);
  51. begin
  52.     Close;
  53. end;
  54.  
  55. procedure TForm1.Lock1Click(Sender: TObject);
  56. begin
  57.    if RTIsCountLock(cPrg) then
  58.       RtDelCountLock(cPrg)
  59.    else if RTIsDateLock(cPrg) then
  60.       RtDelDateLock(cPrg)
  61. end;
  62.  
  63. procedure TForm1.Registration1Click(Sender: TObject);
  64. begin
  65.      RTDelReg(cPrg);
  66. end;
  67.  
  68. procedure TForm1.Registernow1Click(Sender: TObject);
  69. begin
  70.    if Register then
  71.    begin
  72.        Caption := cRegVer;
  73.       Registernow1.Enabled := False;
  74.    end;
  75. end;
  76.  
  77. procedure TForm1.FormCreate(Sender: TObject);
  78. begin
  79.     case Lock of
  80.        0: begin
  81.              Caption := cRegVer;
  82.             Registernow1.Enabled := False;
  83.          end;
  84.        1: Caption := Format(cDemoVer,[Cnt,'times']);
  85.       2: Caption := Format(cDemoVer,[Cnt,'days']);
  86.    end;
  87. end;
  88.  
  89. procedure TForm1.About1Click(Sender: TObject);
  90. var
  91.     NewForm: TNewForm2;
  92. begin
  93.    NewForm := TNewForm2.Create(Application);
  94.    try
  95.        NewForm.ShowModal;
  96.    finally
  97.        NewForm.Free;
  98.    end;
  99. end;
  100.  
  101. end.
  102.