Delphi 简单的软件注册Demo

procedure TMainForm.FormCreate(Sender: TObject);
var
  MyReg : TRegistry;
  InsDate, LastUseDate, TryDate : TDateTime;
  Total : PAnsiChar;
  TotalStr : String;
begin
  MyReg := TRegistry.Create;
  MyReg.LazyWrite := False;
  MyReg.RootKey := HKEY_LOCAL_MACHINE;
  MyReg.OpenKey('\software\XJDZ_REG\LastUsed',true);
  MyReg.WriteString('',DateToStr(Date));
  MyReg.CloseKey;
  MyReg.OpenKey('\software\XJDZ_REG\InsDate',true);
  //是否第一注册
  if MyReg.ReadString('') = '' then
      MyReg.WriteString('',DateToStr(Date))
  else
    begin
      //MessageBox(MainForm.Handle,'','非第一次注册',MB_OK);
      InsDate := StrToDate(MyReg.ReadString(''));
      //Total := PAnsiChar(IntToStr(Round(abs(Date - InsDate))));
      TotalStr := IntToStr(Round(abs(Date - InsDate)));
      //MessageBox(MainForm.Handle,'注册时间',Total,MB_OK);
      if  Round(abs(Date - InsDate)) >= 3  then
      begin
        MessageBox(MainForm.Handle,PAnsiChar('注册天数：'+ TotalStr +'天，请注册！'),'注册时间',MB_OK);
        Halt;
      end
      else
      begin
        MessageBox(MainForm.Handle,PAnsiChar('注册天数：'+ TotalStr +'天，请及时注册！'),'注册时间',MB_OK);
      end;

    end;

end;

对其注册表的写入的数据，进行简单的转换，可以加强安全性。

转载于:https://www.cnblogs.com/wangmingshuo/archive/2013/05/09/3323398.html