Ir para conteúdo
Fórum Script Brasil
  • 0

Alterar hora


Alessandra (Jundiai)

Pergunta

1 resposta a esta questão

Posts Recomendados

  • 0
Estou fazendo uma tela onde o usuario vai digitar uma data e hora e ao clicar em um botao, tera que alterar a data e hora do windows. alguém pode me ajudar como fazer isso ???

exemplos

procedure TForm1.Button1Click(Sender: TObject);
begin
   SetNewTime(1998,2,10,18,07);
end; 

function SetNewTime(Ano, Mes, Dia, hour, minutes: word): Boolean; 

var
st:TSYSTEMTIME;
begin
  GetLocalTime(st);
  st.wYear := Ano;
  st.wMonth := Mes;
  st.wDay := Dia;
  st.wHour := hour;
  st.wMinute := minutes;

  if not SetLocalTime(st) then
     Result := False
  else
     Result := True;
end;
Outro
Procedure TForm1.Button1Click(Sender: TObject);
var
   SystemTime : TSystemTime;
begin
   With SystemTime do
   begin
      //Definindo o dia do sistema
      wYear:= 1996;
      wMonth:= 5;
      wDay:= 10;
      //Definindo a hora do sistema
      wHour:= 20; //hora
      wMinute:= 50; //minutos
      wSecond:= 59; //segundos
   end;
   //Colocar a hora e data do sistema
   SetLocalTime(SystemTime);
end;

Muitos outros

http://translate.google.com.br/translate_s...k&resnum=11

abraço

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...