home *** CD-ROM | disk | FTP | other *** search
/ Prima Shareware 3 / DuCom_Prima-Shareware-3_cd1.bin / PROGRAMO / delphi / RTREGIST / DEMOS / VCL / UNIT2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-01-23  |  1.1 KB  |  62 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.     procedure Button2Click(Sender: TObject);
  18.     private
  19.         { Private-Deklarationen }
  20.     public
  21.         { Public-Deklarationen }
  22.     end;
  23.  
  24. function Register: Boolean;
  25.  
  26. implementation
  27.  
  28. uses
  29.    Unit1;
  30.  
  31. {$R *.DFM}
  32.  
  33. function Register: Boolean;
  34. var
  35.     NewForm: TNewForm;
  36. begin
  37.     NewForm := TNewForm.Create(Application);
  38.    try
  39.        NewForm.ShowModal;
  40.    finally
  41.        NewForm.Free;
  42.     end;
  43.    Result := Form1.RtRegControl1.Registered;
  44. end;
  45.  
  46. procedure TNewForm.Button2Click(Sender: TObject);
  47. begin
  48.     with Form1.RtRegControl1 do
  49.        if Register(Edit3.Text,Edit4.Text) then
  50.        begin
  51.             if IsCountLock then
  52.               DelCountLock
  53.           else if IsDateLock then
  54.               DelDateLock
  55.       end
  56.        else
  57.               MessageDlg('Wrong registration key!',mtWarning,[mbOk],0);
  58.    Close;
  59. end;
  60.  
  61. end.
  62.