摘要:
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\L... 阅读全文