home *** CD-ROM | disk | FTP | other *** search
/ Prima Shareware 3 / DuCom_Prima-Shareware-3_cd1.bin / PROGRAMO / delphi / RTREGIST / DEMOS / PASCAL / UNIT2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-13  |  1.3 KB  |  74 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.    RtRegw32, 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. var
  53.     Buf1,Buf2: array [0..63] of Char;
  54. begin
  55.    RTSetPCLock(CheckBox1.Checked);
  56.    StrPCopy(Buf1,Edit3.Text);
  57.    StrPCopy(Buf2,Edit4.Text);
  58.    Registered := RTRegister(cPrg,Buf1,Buf2);
  59.    if Registered then
  60.    begin
  61.         if RTIsCountLock(cPrg) then
  62.           RtDelCountLock(cPrg)
  63.       else if RTIsDateLock(cPrg) then
  64.           RtDelDateLock(cPrg);
  65.       Cnt := 1;
  66.       Lock := 0;
  67.    end
  68.    else
  69.           MessageDlg('Wrong registration key!',mtWarning,[mbOk],0);
  70.    Close;
  71. end;
  72.  
  73. end.
  74.