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://blog.csdn.net/w709835509/article/details/8903884
 

相关阅读 >>

Delphi 文件名变小写的函数

Delphi winapi: setlayeredwindowattributes - 设置窗口的透明

Delphi 读取image组件转换base64编码

Delphi 树

Delphi pagecontrol.ttabsheet与drivecombobox.items同步

Delphi xe10 针对全面屏手机端无法全面显示，下方显示黑条的处理

win32全局钩子在Delphi下实现的关键技术

Delphi 主程序装载脚本

Delphi两个取字串长度的函数strlen,length

Delphi多线程tthread详解

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 简单的软件注册Demo