home *** CD-ROM | disk | FTP | other *** search
/ Prima Shareware 3 / DuCom_Prima-Shareware-3_cd1.bin / PROGRAMO / delphi / RTREGIST / DEMOS / DCU / UNIT2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-11-27  |  1.2 KB  |  70 lines
  1. unit Unit2;
  2.  
  3. interface
  4.  
  5. uses
  6.     SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.     Forms, Dialogs, StdCtrls, ExtCtrls;
  8.  
  9. type
  10.     TNewForm = class(TForm)
  11.     Button2: TButton;
  12.     Panel2: TPanel;
  13.     Label1: TLabel;
  14.     Label2: TLabel;
  15.     Edit3: TEdit;
  16.     Edit4: TEdit;
  17.     CheckBox1: TCheckBox;
  18.     procedure Button2Click(Sender: TObject);
  19.     private
  20.         { Private-Deklarationen }
  21.     public
  22.         { Public-Deklarationen }
  23.     end;
  24.  
  25. function Register: Boolean;
  26.  
  27. implementation
  28.  
  29. uses
  30.    RtRegb, Unit1;
  31.  
  32. var
  33.     Registered: Boolean;
  34.  
  35. {$R *.DFM}
  36.  
  37. function Register: Boolean;
  38. var
  39.     NewForm: TNewForm;
  40. begin
  41.     Registered := False;
  42.     NewForm := TNewForm.Create(Application);
  43.    try
  44.        NewForm.ShowModal;
  45.    finally
  46.        NewForm.Free;
  47.     end;
  48.    Result := Registered;
  49. end;
  50.  
  51. procedure TNewForm.Button2Click(Sender: TObject);
  52. begin
  53.    RTSetPCLock(CheckBox1.Checked);
  54.    Registered := RTRegister(cPrg,Edit3.Text,Edit4.Text);
  55.    if Registered then
  56.    begin
  57.         if RTIsCountLock(cPrg) then
  58.           RtDelCountLock(cPrg)
  59.       else if RTIsDateLock(cPrg) then
  60.           RtDelDateLock(cPrg);
  61.       Cnt := 1;
  62.       Lock := 0;
  63.    end
  64.    else
  65.           MessageDlg('Wrong registration key!',mtWarning,[mbOk],0);
  66.    Close;
  67. end;
  68.  
  69. end.
  70.