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;

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

来源：https://blog.csdn.net/w709835509/article/details/8903884

推荐分享