Ver Mensaje Individual
  #17  
Antiguo 29-01-2008
Avatar de Chris
[Chris] Chris is offline
Miembro Premium
 
Registrado: abr 2007
Ubicación: Jinotepe, Nicaragua
Posts: 1.678
Reputación: 19
Chris Va por buen camino
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.
__________________
Perfil Github - @chrramirez - Delphi Blog - Blog Web

Última edición por Chris fecha: 29-01-2008 a las 22:16:47.
Responder Con Cita