Pesquisar na Comunidade
Showing results for tags 'mudar'.
Encontrado 1 registro
-
Detectar Modificação De Hora Windows
um tópico no fórum postou abraao895 Object Pascal - Delphi & Lazarus
Bom dia pessoal, estou tentando implementar um detector de mudança de horário para que não dê problema na emissão de cupom se o usuário trocar a mesma. Consegui esse source: protected FWMTimeChangeTimeStamp: TDateTime; procedure WMTimeChange(var Msg: TMessage); message WM_TIMECHANGE; //---- procedure TFormPdv.WMTimeChange(var Msg: TMessage); begin inherited; if Now-FWMTimeChangeTimeStamp>0.01 then //Aproximadamente 15 minutos begin ShowMessage('Modificação de horário do computador detectado!'); FWMTimeChangeTimeStamp := Now; end; end; Mas quando fui testar essa procedure é chamada duas vezes quando é realizada a modificação do horário, inviabilizando o uso da mesma em um processo que tenho aqui. Alguém teria alguma outra idéia de como eu poderia estar fazendo esse procedimento de detecção? Desde já agradeço!