Controlar a mudan�a de Data do Windows

Question

Tem como controla a mudan�a de Data do Windows para as 06:00 hsao inv�s de 00:00 hso sistema gera arquivos com a data na nomenclatura e apesar de ap�s as 00:00 hs j� ser um novo dia mesmo, no tipo de ...

Paullsoftware · Answer

para controlar a mudan�a de hora/data do windows pode criar um servi�o, semelhante ao que fa�o no meu sistema de lan-house... onde tenho um Ttimer que verifica a cada minuto se a hora � igual ou maior a anterior e trato de acordo com a minha necessidade, no seu caso pode colocar um time para controlar apenas quando chegar a hora desejada, e em seguida, mudar para a de sua escolha use essa torina abaixo...

var
SystemTime : TSystemTime;
Dia, Mes, Ano, Hora, Min, Sec, Mil: Word;

Passar as informa��es para as variaveis Dia, Mes, Ano, Hora, Min, Sec, Mil: Word;

SystemTime.wYear := Ano; 
SystemTime.wMonth := Mes; 
SystemTime.wDay := Dia; 
SystemTime.wHour := Hora; 
SystemTime.wMinute := Min; 
SystemTime.wSecond := Sec; 
SystemTime.wMilliseconds := Mil; 

Modificar a data / hora 
SetSystemTime (SystemTime);

Fabiano G�es · Answer

PaullSoftware,O meu sistema gera arquivos a todo momento se passeando na data do windows.A sua dica bloqueia o windows de mudar a data quando for 00:00 hs ?Valeu pela aten��o !!!!...

Paullsoftware · Answer

[quote:bbe5ec0671]A sua dica bloqueia o windows de mudar a data quando for 00:00 hs ? [/quote:bbe5ec0671]N�o, a dica serve para vc mudar a hora do sistema, tipo...como eu te disse, vc faz uma rotina para checar a data/hora do sistema quando ele chegar em uma determinada data/hora que vc espera pede para ele mudar para outra de sua escolha, tipo:Ex.:[code:1:bbe5ec0671]Procedure TestaHora(Dia, Mes, Ano, Hora, Min, Sec, Mil: Word);var SystemTime : TSystemTime;beginSystemTime.wYear := Ano;SystemTime.wMonth := Mes;SystemTime.wDay := Dia;SystemTime.wHour := Hora;SystemTime.wMinute := Min;SystemTime.wSecond := Sec;SystemTime.wMilliseconds := Mil;//Modificar a data / horaSetSystemTime (SystemTime);end;[/code:1:bbe5ec0671]para usar:[code:1:bbe5ec0671]TestaHora(01,01,2006,07,00,20,00);[/code:1:bbe5ec0671]vc pode adaptar para as suas necessidades...