pegar a hora do micro??

Question

sera que tem como pegar a hora em que o micro foi desligado ???e pegar ela quando ele for ligado??...

R�mulo Barros · Answer

Para isso, basta criar uma aplica��o �Oculta� (Background) e no evento OnClose ou OnDestroy, capturar a hora e armazenar em um arquivo texto. Esta aplica��o tb ter� q ser executada no boot do sistema para que a hora em que o computador foi desligado, possa ser captuda. Para o boot do windows, utilize o registro (HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run) :twisted: :twisted: :twisted: :twisted: :twisted:

Skaarj · Answer

sim.. precisamos primeiro interceptar o desligamento do Windows.. e dae gravar a hora, agora onde voce vai salvar se � em database ou INI, escolhe

private
   { Private declarations }
   procedure WMQueryEndSession (var Msg : TWMQueryEndSession); message WM_QueryEndSession;
.
.
.
procedure TForm1.WMQueryEndSession (var Msg : TWMQueryEndSession);
begin
        [b]//aqui voce coloca onde salvar a hora[/b]
        Msg.Result := 1; //permite a continuidade do desligamento
end;

Agora quando ligar voce busca no teu INI ou na tua database o registro referente a essa hr..
[a dica do desligamento foi feita por Marco Antonio do clubedelphi][/code]

Zumbi · Answer

como que eu fa�o para executar a aplica��o no boot???...

Skaarj · Answer

vc s� vai iniciar a aplica��o delphi qndo carregar o Windowns..
pode por na pasta do INICIAR ou entao fazer uma referencia nessa chave do registro:
[b:5393851b6a]HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run[/b:5393851b6a]
olha pra ver a qnto tempo o win foi ligado[DTDelphi]:

- Como saber h� quanto tempo o WINDOWS foi inicializado? Use a fun��o GetTickCount da API do Windows. Ela retorna o intervalo em milisegundos. Obs.: Esta fun��o � �til quando se quer determinar o intervalo de tempo decorrido durante uma a��o de um aplicativo.

var
  TempoInicial, TempoFinal, Intervalo: Integer
begin
  TempoInicial := GetTickCount;
  ...
  // c�digo a ser executado
  ...
  TempoFinal := GetTickCount;
  Intervalo := TempoFinal - TempoInicial;
end.

Zumbi · Answer

ok... mais uma coisa nao sei se nao teria que fazer um topico diferente mas...tem como pegar a hora que se desliga o monitor????...

Lucas Silva · Answer

[quote:bb2839d44d=�zumbi�]tem como pegar a hora que se desliga o monitor????[/quote:bb2839d44d] ai voc� complicou mais ainda........

Zumbi · Answer

desculpa....esquecem essa parte:como que eu posso fazer isso:...

Skaarj · Answer

Segue um exemplo de ler valores das chaves de registro:

procedure frmMain.LerRegistro;
const
Raiz : String = ?Software\Programa�;
var
Registro : TRegistry;
begin
// Chama o construtor do objeto
Registro := TRegistry.Create;
with Registro do
begin
// Somente abre se a chave existir
if OpenKey (Raiz, False) then
// Envia as informa��es ao form, vendo se os valores existem, primeiramente...
if ValueExists (�Largura�) then
Width := ReadInteger (�Largura�);
if ValueExists (�Altura�) then
Height := ReadInteger (�Altura�);
if ValueExists (�Esquerda�) then
Left := ReadInteger (�Esquerda�);
if ValueExists (�Topo�) then
Top := ReadInteger (�Topo�);
// Envia as informa��es para as caixas Abrir e Salvar.
OpenDialog1.InitialDir := ReadString (�Abrir Inicial�);
SaveDialog1.InitialDir := ReadString (�Salvar Inicial�);
// Fecha a chave e o objeto
Registro.CloseKey;
Registro.Free;
end;

Zumbi · Answer

valeu vamos ver o que eu consigo.. fazer......

Skaarj · Answer

Eu vi uma parada de desligar o monitor, v se t ajuda:
uses Windows
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);
//desligar
SendMessage(Application.Handle, WM_SYSCOMMAND,
SC_MONITORPOWER, -1);
//ligar

Neguete · Answer

[quote:4b795d5fb6=�Undeclared Identifier�]Para isso, basta criar uma aplica��o �Oculta� (Background)...[/quote:4b795d5fb6]Como se faz para para rodar uma aplica��o em Background ??...

Kyonak · Answer

form1.hide deixa a aplica��o em background....

Zumbi · Answer

e como fazela voltar do hide??...

Kyonak · Answer

form1.show...

F�rum pegar a hora do micro?? #219661