freelsn.pas

一个自动注册监控程序

unit freelsn;

interface

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

type
  TForm1 = class(TForm)
    CoolTrayIcon1: TCoolTrayIcon;
    ImageList1: TImageList;
    Timer1: TTimer;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  Reg: TRegistry;
  s_oldfile,s_olddir,s_newfile ,s_year,s_month,s_day :string;
  MyST:TSystemTime;
  s_dir  :string  ;
  ss_count :string ;
begin

  s_dir:=extractfiledir(application.ExeName);

  if not FileExists(s_dir+'\cfgfree.ini') then
      exit ;

  memo1.Lines.LoadFromFile(s_dir+'\cfgfree.ini');

  if memo1.Lines.Count=0 then
     exit;
  ss_count:=trim(copy(trim(memo1.Lines.Strings[0]),9,10));

  Reg := TRegistry.Create;
  try
    begin
        Reg.RootKey := HKEY_CURRENT_USER;
        if not Reg.OpenKey('\Software\Young', True) then
            Reg.CreateKey('\Software\Young');
         s_oldfile :=Reg.ReadString('oldApp'+ss_count);
         s_year :=Reg.ReadString('year'+ss_count);
         s_month :=Reg.ReadString('month'+ss_count);
         s_day :=Reg.ReadString('day'+ss_count);
         Reg.CloseKey;
    end;
  finally
    Reg.Free;
    inherited;
  end;

//      DateTimePicker1.Date:=datetime;
//      edit1.Text:=copy(datetostr(DateTimePicker1.Date),1,4) ;
//      edit2.Text:=copy(datetostr(DateTimePicker1.Date),6,2) ;
//      edit3.Text:=copy(datetostr(DateTimePicker1.Date),9,2) ;
      edit1.text:=inttostr(currentyear());
      edit2.text:=inttostr(MonthOfTheYear(date));
      edit3.text:=inttostr(Dayof(date));

     if s_year='' then
         s_year:=edit1.text;

     if s_month='' then
         s_month:=edit2.text;
     if s_day='' then
         s_day:=edit3.text;

 
      getSystemTime(MyST);
      with MyST do
         begin
              wYear:=strtoint(trim(s_year));
              wMonth:=strtoint(s_month);
              wDay:=strtoint(s_day);
         end;
         SetSystemTime(MyST);
  s_olddir:=extractfiledir(s_oldfile);
  s_oldfile:=extractfilename(s_oldfile);
  s_newfile:=s_olddir+'\bak_'+ s_oldfile;
  ShellExecute(handle,nil,pchar(s_newfile),nil,nil,sw_shownormal);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
   MyST:TSystemTime;
begin

   getSystemTime(MyST);

      with MyST do
         begin
              if trim(edit1.text)<>'' then
                wYear:=strtoint(trim(edit1.text));
              if trim(edit2.text)<>'' then
                wMonth:=strtoint(edit2.text);
              if trim(edit3.text)<>'' then
                wDay:=strtoint(edit3.text);
         end;
         SetSystemTime(MyST);


  form1.Close;
end;

end.