princ.pas

RegistTimes RegistDays时间限制控制控件。(有源代码）工作在：D2 D3 D4 D5。作者：Mats Asplund。

unit princ;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, Wordcap, AdvStatusBar, RegisterT, Hemibtn;

type
  TForm1 = class(TForm)
    editor: TRichEdit;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Edit1: TEdit;
    Edit2: TEdit;
    MSOfficeCaption1: TMSOfficeCaption;
    AdvStatusBar1: TAdvStatusBar;
    Label1: TLabel;
    Register1: TRegister;
    HemisphereButton1: THemisphereButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure HemisphereButton1Click(Sender: TObject);
  private
    { D閏larations priv閑s }
  public
    { D閏larations publiques }
  end;

var
  Form1: TForm1;

implementation

uses Info;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
fich:string;
psw,prog,userid,txtf:array[0..250] of char;
post,posp,lent,lenp:integer;

begin
opendialog1.execute;
fich:=opendialog1.filename;
getprivateprofilestring('Info','User','Aucun',userid,250,pchar(fich));
getprivateprofilestring('Info','Prog','Aucun',prog,250,pchar(fich));
lenp:=edit1.gettextlen;
edit1.gettextbuf(psw,lenp+1);
posp:=0;
edit2.text:=userid;
lent:=edit2.gettextlen;
for post:=0 to lent do
begin
txtf[post]:=chr(ord(userid[post])+ord(psw[posp]));
inc(posp);
if posp=lenp then posp:=0;
end;

editor.lines.add('REGEDIT4');
editor.lines.add('[HKEY_LOCAL_MACHINE\SOFTWARE\'+prog+'\Code]');
editor.lines.add('@="'+txtf+'"');
editor.lines.savetofile(extractfilepath(application.exename)+prog+'.reg');
Label1.Caption:='Fichier '+extractfilepath(application.exename)+prog+'.reg'+' cr殚';

end;


procedure TForm1.FormCreate(Sender: TObject);
begin
Register1.TestRegistered;
if Register1.Registered then Label1.Caption:='Programme enregistr