Seguridad de un sistema

[[Chris]]

Hola cjmatador. Prueba un código similar a este:

Código Delphi [-]
Procedure RevisarFechaInstalacion:TDateTime;
var
Reg : TRegistry  ;
Begin
Try
  Reg:=TRegIniFile.Create;
  Reg.RootKey := HKEY_CLASSES_ROOT;
  Reg.OpenKey('{AA95A820-4458-410F-BD97-2EC6142542B5}',TRUE);
  If Reg.ValueExists('fecha_instalacion') Then
  Result := reg.ReadDateTime('fecha_instalacion')
  Else
  Begin
  WriteDateTime('fecha_instalacion',now);
  Result := now;
  end
Finally
Reg.Free;
End;

end;

EDITADO: En este caso la fecha se guarda directamente sin condificar. Oviamente, tu tendrás que implementar los métodos para mejorar la seguridad de esta pequeña función.

saludos.