regunit.pas

program nghe nhac with goodskin

unit RegUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Registry, ComCtrls, ExtCtrls;

type
    TRegistrationForm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    btnOK: TButton;
    CodeEdit: TEdit;
    C: TLabel;
    Label1: TLabel;
    K: TLabel;
    P1: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Image1: TImage;
    procedure btnOKClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RegistrationForm            : TRegistrationForm;
  Reg                         : TRegistry;
implementation

uses MediaUnit1;


{$R *.dfm}

procedure TRegistrationForm.btnOKClick(Sender: TObject);

begin
  if P1.Text = Form1.Key.Text then
  begin
    Reg := TRegistry.Create;
    Reg.RootKey := HKEY_CURRENT_USER;
    Reg.OpenKey('\Software\JaySoft',FALSE);
    Reg.WriteString('Key',P1.Text);
    Reg.CloseKey;
    Reg.Free;
    ShowMessage('ThankYou for registering your copy.');
    Form1.Button1.Visible := FALSE;
   // Form1.Label3.Visible := TRUE;
    close;
  end
  else
  begin
    ShowMessage('Invalid Key!. Please verify that the KEY that you are entering ' + #13 +
    'is same as that send to you from JaySoft.' + #13 + #13 + 'Try again or else exit, playing with it wont work!' );
  end; 
end;

procedure TRegistrationForm.FormCreate(Sender: TObject);
begin
 Reg := TRegistry.Create;
 Reg.RootKey := HKEY_CURRENT_USER;
 Reg.OpenKey('\Software\JaySoft', FALSE);
 CodeEdit.Text := Reg.ReadString('Code');
 Reg.CloseKey;
 Reg.Free;
end;

procedure TRegistrationForm.Button1Click(Sender: TObject);
begin
close;
end;

end.