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;
对其注册表的写入的数据,进行简单的转换,可以加强安全性。