Ajuda na compara�ao de datas no registro windows

Question

Estou desenvolvendo uma aplica��o pra ser executada de 30 em 30 dias.  Jah consegui fazer gravar a data atual no envento onshow do form como no codigo abaixo:  regbb:=tregistry.create;  try    regbb.r...

Marcio.theis · Answer

Leia a chave que vc tem no registro, compare e depois grava......

Emerson Nascimento · Answer

para poder fazer esse controle seu programa precisa ficar rodando em background (ou voc� precisa agendar isso no windows ou em qualquer outra agenda que aceite o agendamento de execu��o de programas como se fosse um �compromisso�).

deveria ser algo assim:

var
  regbb: tregistry;
  dataultimobackup: TDate;
begin
  regbb := tregistry.create;
  try
    regbb.rootkey:=HKEY_CURRENT_USER;
    regbb.OpenKey(�Software\Microsoft\Config\Key\Windows\backup�,true);

    try
      dataultimobackup := regbb.ReadDate(�data�);
    except
      dataultimobackup := sysutils.date - 30;
    end;

    if (trunc(sysutils.date - dataultimobackup) >= 30) and
       (application.MessageBox(�� necess�rio efetuar o backup. Deseja fazer isso agora?�,
                               �Backup�,MB_TASKMODAL + MB_YESNO + MB_DEFBUTTON1) = mrYes) then
    begin
      {rotina de execu��o do backup}

      if BackupEfetuadoComSucesso then
        regbb.WriteDate(�data�,sysutils.date);
    end;
  finally
    regbb.Free;
  end;
end;

voc� poderia ainda colocar essa rotina num Timer, para ser executada de hora em hora assim, se o usu�rio n�o fizer o backup na abertura do programa, ele ser� avisado de hora em hora, at� que aceite executar o backup.

O4pr3ndiz · Answer

Agrade�o a ajuda mas o codigo aparece o seguinte erro na execu��o e naum executa

1) erro na linha
dataultimoITA := regita.ReadDate(�data�);

na compila��o exibe o erro ERegistryException �Failed to get data for �data�

e naum executa o projeto, mudei pra data := DateToStr(now);
e tb naum resolveu.

Eu li sobre o readdate e naum vi nehuma anormalidade de sintaxe, tanto que passo pelo ctrl+F9.

Se puder me ajudar..
Estou precisando disto com urgencia... obrigado

Emerson Nascimento · Answer

isso deve trer acontecido porque o valor �Data� ainda n�o havia sido criado. essa informa��o s� aparece para o Delphi e somente na primeira execu��o. para evitar a exibi��o de erros tratados, v� em Tools -> Debugger Options -> Language Exceptions e desmarque a caixa [i:013ec86ff8]Stop on Delphi Exceptions[/i:013ec86ff8]. Feito isso, o Delphi somente exibir� mensagens para os erros n�o tratados.

O4pr3ndiz · Answer

.. e funcionou a primeira vez, mas as outras naum...  Mas valew a for�a.....

Emerson Nascimento · Answer

com assim �funcionou a primeira vez, mas as outras naum�?...

O4pr3ndiz · Answer

Coloquei o codigo na integra no timer e funcionou uma vez...
altererei a data do sistema e tudo depois nda.. ele cria a pasta backup no registro vazia....

Eu ainda naum percebi o que aconteceu..

Emerson Nascimento · Answer

olha, eu executei aqui e funcionou perfeitamente.

fiz assim:
coloquei um timer com intervalo de 30.000 (30 segundos)

data atual: 01/12/2005 (1o. de dezembro de 2005)
- rodei o programa;
- depois de 30 segundos o programa perguntou se eu queria efetuar o bkp. respondi que [b:703227ba0a]n�o[/b:703227ba0a];
- depois de mais 30 segundos perguntou de novo. respondi que [b:703227ba0a]n�o[/b:703227ba0a] novamente;
- mais 30 segundos e perguntou novamente. respondi que [b:703227ba0a]sim[/b:703227ba0a], queria efetuar o bkp;
- nos 30 segundos seguintes a [i:703227ba0a]pergunta n�o apareceu[/i:703227ba0a]. esperei mais uns 5 minutos e a [i:703227ba0a]pergunta n�o apareceu[/i:703227ba0a] mais.
- alterei a data para 31/12/2005 - 31 de dezembro de 2005 - portanto, TRINTA DIAS PRA FRENTE, e a pergunta come�ou a aparecer novamente.

ou seja, tudo funcionou como devido...

OBS.: o registro do windows s� ser� alterado se voc� optar por efetuar o bkp e esse for efetuado com sucesso (conforme aquele c�digo passado)

p.s.: eu s� gostaria de acrescentar duas linha �quele c�digo:

var 
  regbb: tregistry; 
  dataultimobackup: TDate; 
begin 
  TIMER1.ENABLED := FALSE; // nova linha

  regbb := tregistry.create;
  try 
    regbb.rootkey:=HKEY_CURRENT_USER; 
    regbb.OpenKey(�Software\Microsoft\Config\Key\Windows\backup�,true); 

    try 
      dataultimobackup := regbb.ReadDate(�data�); 
    except 
      dataultimobackup := sysutils.date - 30; 
    end; 

    if (trunc(sysutils.date - dataultimobackup) >= 30) and 
       (application.MessageBox(�� necess�rio efetuar o backup. Deseja fazer isso agora?�, 
                               �Backup�,MB_TASKMODAL + MB_YESNO + MB_DEFBUTTON1) = mrYes) then 
    begin 
      {rotina de execu��o do backup} 

      if BackupEfetuadoComSucesso then 
        regbb.WriteDate(�data�,sysutils.date); 
    end; 
  finally 
    regbb.Free; 
  end; 

  TIMER1.ENABLED := TRUE; // nova linha
end;

assim o timer ser� executado e, se for o necess�rio, ir� esperar a resposta do usu�rio para reiniciar a contagem do tempo.

O4pr3ndiz · Answer

obrigado.......