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.