Cyberhack Postado Dezembro 8, 2007 Denunciar Share Postado Dezembro 8, 2007 como pegar a hora do sistemae fazer duas divisaoum label com a hora atuale um com a hora pega do sistema e alteradaum 12:00e o outro 11:00como faço isso alguém pode me ajudar Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Dezembro 8, 2007 Denunciar Share Postado Dezembro 8, 2007 (editado) procedure TForm1.Button1Click(Sender: TObject); begin label1.Caption := 'Horário Verão ' + timetostr(time()); label2.Caption := 'Horário Atual ' + timetostr(time()- strtotime('01:00:00')); end; procedure TForm1.Timer1Timer(Sender: TObject); begin label1.Caption := 'Horário Verão ' + timetostr(time()); label2.Caption := 'Horário Atual ' + timetostr(time()- strtotime('01:00:00')); end;Voce pode colocar o codigo num botao ou em um timerabraço Editado Dezembro 8, 2007 por Jhonas Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Cyberhack Postado Dezembro 17, 2007 Autor Denunciar Share Postado Dezembro 17, 2007 consegui resolver a maioria delas ,com faço pra quando por exemploa cada 1 minuto pegar e voltar a hora anterior.e dar um reflash no relogio do sistema Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Micheus Postado Dezembro 17, 2007 Denunciar Share Postado Dezembro 17, 2007 consegui resolver a maioria delas ,com faço pra quando por exemploa cada 1 minuto pegar e voltar a hora anterior.se não precisar de precisão, poderia utilizar um timer, do contrário, buscando no forum já há discussão sobre temporizadores com maior precisão (mês passado, se não me engano o assunto esteve em voga)e dar um reflash no relogio do sistemapara alterar o horário do sistema:- primeiro você terá que ter direitos de acesso para isto (caso do uso de Windows - XP, 2K, NT, ...);- há uma função da API para isto - SetSystemTime. Dê uma olhada neste post- deve informar todos os aplicativos de que a hora do Windows foi alterada, enviando uma mensagem WM_TIMECHANGE. Isto é feito através do envio da mensagem a todas as janelas deste modo: SendMessage(HWND_TOPMOST, WM_TIMECHANGE, 0, 0);Abraços Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Miro Postado Dezembro 17, 2007 Denunciar Share Postado Dezembro 17, 2007 Por acaso voce que fazer isto ( a cada minuto voltar a hora anterior ) é pra usar com o AD_Phone ? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Cyberhack Postado Dezembro 18, 2007 Autor Denunciar Share Postado Dezembro 18, 2007 não e ad_phone, e um soft que to tentando fazer...como faço com timer moderadoruma a cada 1 voltartsystem seu usar mas não sei voltar sem precisao Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Dezembro 19, 2007 Denunciar Share Postado Dezembro 19, 2007 com faço pra quando por exemploa cada 1 minuto pegar e voltar a hora anterior.e dar um refresh no relogio do sistemafunction SetNewTime(Hora, Min, Seg: word): boolean; var st: TSYSTEMTIME; begin GetLocalTime(st); // Pega hora corrente st.wHour := Hora; st.wMinute := Min; st.wSecond := seg; if not SetLocalTime(st) then Result := FALSE else Result := true; end; procedure TForm1.Timer1Timer(Sender: TObject); var Present: TDateTime; Hour, Min, Sec, MSec: word; hh, mm, ss : shortstring; begin Present:= Now; DecodeTime(Present, Hour, Min, Sec, MSec); sec := sec - 59; // mantem o relogio voltando a hora anterior a cada minuto hh := IntToStr(hour); mm := IntToStr(min); ss := IntToStr(sec); SetNewTime(StrToInt(hh),StrToInt(mm),StrToInt(ss)); end;OBS: coloque o interval do timer = 60000a cada minuto ele voltara ao minuto anterior e mudara a hora do sistemaabraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Cyberhack
como pegar a hora do sistema
e fazer duas divisao
um label com a hora atual
e um com a hora pega do sistema e alterada
um 12:00
e o outro 11:00
como faço isso
alguém pode me ajudar
Link para o comentário
Compartilhar em outros sites
6 respostass a esta questão
Posts Recomendados
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.