Fórum Alterar a Data Do Sistema Windows Via Delphi... #273248
20/03/2005
0
Amigos e amigas,
Estou Martelando com este Problema Faz algumas Horas , ou Melhor , Dias.. :cry: :cry: :cry:
Não estou Conseguindo Mudar a Hora e nen o Dia Do Sitema Via Digitação... :cry: :cry: :cry:
Gostaria de se alguem souber me informasse a função :P :P :P
Meu Problema e o Seguinte... A Cada Segundo Chego a Hora e o Data Do sistema E Armazeno em duas Variáveis:
:idea: Se Alguem Mudar a Data Ou a hora do sistema, meu aplicativo Detecta ...
O Problema e fazer com que o Relogio do Sistema [size=14:e1a1e1864f][b:e1a1e1864f]Resete[/b:e1a1e1864f][/size:e1a1e1864f] este Valor Para os Valores Guardados Nas Variáveis [color=red:e1a1e1864f]HoraSistema e DataSistema.[/color:e1a1e1864f]..
Fui Claro :lol: :lol: :lol: :lol:
Estou Martelando com este Problema Faz algumas Horas , ou Melhor , Dias.. :cry: :cry: :cry:
Não estou Conseguindo Mudar a Hora e nen o Dia Do Sitema Via Digitação... :cry: :cry: :cry:
Gostaria de se alguem souber me informasse a função :P :P :P
Meu Problema e o Seguinte... A Cada Segundo Chego a Hora e o Data Do sistema E Armazeno em duas Variáveis:
var HoraSistema:TTime; DataSistema:TDate;
:idea: Se Alguem Mudar a Data Ou a hora do sistema, meu aplicativo Detecta ...
O Problema e fazer com que o Relogio do Sistema [size=14:e1a1e1864f][b:e1a1e1864f]Resete[/b:e1a1e1864f][/size:e1a1e1864f] este Valor Para os Valores Guardados Nas Variáveis [color=red:e1a1e1864f]HoraSistema e DataSistema.[/color:e1a1e1864f]..
Fui Claro :lol: :lol: :lol: :lol:
Marco Salles
Curtir tópico
+ 0
Responder
Posts
20/03/2005
Michael
Olá amigo!
Procure no help do Delphi pela função da API do Windows SetSystemTime. Ou:
http://forum.clubedelphi.net/viewtopic.php?t=53473&highlight=setsystemtime
http://forum.clubedelphi.net/viewtopic.php?t=48726&highlight=setsystemtime
Ou ainda: pesquise no fórum por SetSystemTime.
[]´s
Procure no help do Delphi pela função da API do Windows SetSystemTime. Ou:
http://forum.clubedelphi.net/viewtopic.php?t=53473&highlight=setsystemtime
http://forum.clubedelphi.net/viewtopic.php?t=48726&highlight=setsystemtime
Ou ainda: pesquise no fórum por SetSystemTime.
[]´s
Responder
Gostei + 0
20/03/2005
Marco Salles
Procure no help do Delphi pela função da API do Windows SetSystemTime. Ou: http://forum.clubedelphi.net/viewtopic.php?t=53473&highlight=setsystemtime http://forum.clubedelphi.net/viewtopic.php?t=48726&highlight=setsystemtime Ou ainda: pesquise no fórum por SetSystemTime.
Antes de fazer esta Pergunta , de fato eu pesquisei no Forum..
Por achar o Teor Desta Dúvida Muito Banal :lol: :lol: :lol:
Infelismente Restringi Muito Ao Pesquisar Por Todo o Termo
Usei com argumento : [b:8722e0df52]Alterar Hora Sistema[/b:8722e0df52]
E não tive exito :cry: :cry: :cry:
Mas vamos Voltar o Que Esta Acontecendo.... Na Realidade Acredite se quiser estou com Outro Problema. [b:8722e0df52]Descobri como se altera a Hora Eu Ja Matei.[/b:8722e0df52].
Este Mesmo Problema , acredito que Devera aparecer nas duas soluções que voce me apresentou....
Faça o teste:
procedure TForm1.Button1Click(Sender: TObject); var st:TSystemTime; DataHora:TDATEtIME; begin Datahora:=EncodeDate(2003,12,12)+EncodeTime(12,12,12,00); DateTimeToSystemTime(HORA,ST); SetLocalTime(st); end;
O Novo Horário , Deveria ser o [b:8722e0df52]´12:12:12´[/b:8722e0df52]
Mas não é isto que esta ocorrendo
Aparece : [b:8722e0df52]´13:12:12´ [/b:8722e0df52]Como voce mesmo Pode testar :arrow: :arrow:
Acredito que Deva ser algo Relacionado com o Horário De Verão :idea: :idea:
[size=14:8722e0df52][color=red:8722e0df52]Como Desabilitar Esta Opção Via Delphi , Qaundo se esta Executando Este Fragmento De Código[/color:8722e0df52][/size:8722e0df52]
Outra Saída seria Repetir o Código:
procedure TForm1.Button1Click(Sender: TObject); var st:TSystemTime; DataHora:TDATEtIME; begin Datahora:=EncodeDate(2003,12,12)+EncodeTime(12,12,12,00); DateTimeToSystemTime(HORA,ST); SetLocalTime(st); DateTimeToSystemTime(HORA,ST); SetLocalTime(st); end;
Porque ai voce ja esta no Horário de Verão e não tem, nada que acrescer Um Hora.. Mas Macetes a Parte , Fica ai a Interroçação Aproveitando se Possível o Mesmo Tópico.. Senão Vou Abrir Outro e não Vão Brigar Comigo :evil: :evil: :evil: :evil: :evil: :
[size=16:8722e0df52][b:8722e0df52]Como Desabilitar a Opção De Horário De Verão Via Delphi[/b:8722e0df52][/size:8722e0df52]
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)