Paulo Nobre

Fala Thales. Vou trabalhar meio expediente. Mais tarde vou testar. Mas, agora tenho certeza que vai funcionar. Valeu KMKG, complementou bem! Então, é aqui que estão os segredos né?

Tudo bem.

Não seria apenas colocar no evento onclick do botão: Caso seja apenas isso, nada acontece!

Não passamos nem da décima página!! :) Mas, neste caso haveria problema caso o usuário não fosse o administrador, não é?

Já está arquivada para eventuais usos. Obrigado

Sem stress e sem pressa. Beleza :D

De fato rodando duas cópias só a que chamou dá erro no retorno.

Infelizmente, não resolveu. :( Fiz a mesma coisa. Retirei o procedimento e o acesso de violação continuou.

Ok, Thales. Você está correto. O botão que chama a hibernação via SetSuspendState, está no próprio programa, que tinha a possível interceptação da mensagem. Como ele mesmo manda hibernar, não teria sentido interceptar dele mesmo.

Entendi!! :)

Também aparece o erro de violação :( Não entendi. Se o programa está rodando a função naõ vai interceptar a emnsagem de hibernação e portanto não teria que retornar dizendo que vai hibernar?

Thales, veja o que aconteceu: o botão que chama a função passada por você está no mesmo programa(teste) onde havia colocado seu código anterior, que funciona normalmente. Como havia mencionado anteriormente, apenas para ter uma menssagem, coloquei showmessage(' vou hibernar') ao entrar na hibernação e showmessage(' estou saindo da hibernação') na volta dela. Tudo acontecia normalmente. Agora ao clicar no botão o computador hiberna direto não aparece a mensagem(vou hibernar) e na volta o programa que está aberto, naturalmente, apresenta erro de acesso de violação, damdo f8 ele continua e aparece a mensagem ' estou saindo da hibernação'. Você sabe porque isto acontece? Um código incompatibiliza o outro?

Ok!

Tenho que acrescentar alguma unit? Testei a função sendo chamada por um botão e não compila.

Hoje em dia quase todos os computadores tem a possibilidade de hibernar, não é? Mas, isto (hibernar) depende do hardware não é? Sendo assim uma função deste tipo teria que interagir com hardware? Falei alguma idiotice?

Claro que estou interessado!!

De fato no Delphi 7 não existem estas declarações. Será que encontradas na unit messages é que controlam a hibernação? Na unit messages do Delphi 7, tem: TWMPower = packed record Msg: Cardinal; PowerEvt: Longint; { PWR_SUSPENDREQUEST, PWR_SUSPENDRESUME, PWR_CRITICALRESUME } Unused: Longint; Result: Longint; end; Mas, o que importa é que com o que você me passou o problema está resolvido!

Ok!, Havia procurado na internet sobre o tema hibernação com delphi e não encontrei nada. Coloquei a pergunta em alguns fóruns e nínguém se quer teve nehuma idéia. Porém, aqui foi bem rápido.

Thales, deu certo(leia o post acima do seu último, por favor!). Coloquei um showmessage(' Vou hibernar') antes e um showmessage(' Estou saindo da hibernação') depois. Funcionou perfeitamente. Agora vou adaptar para o programa e é claro esta mensagens não vão aparecer e sim as ações é que deverão ocorrer. Em qual documentação estes identificadores aparecem?

Thales, você é mais rápido do que um raio. Logo depois que postei, veio a luz, substitui o post e quando repostei você já havia respondido. Deu certo! Obrigado!! PS: Em qual documentação estes identificadores aparecem? Na unit Messages elas não aparem.

Thales, Como mencionado num post acima com o código fornecido não compila. No delphi 7 não está compilando!! Vou substituir pelos valores acima! É o seguinte, o timer controla um cronômetro regresssivo que controla uma ação. Quando o computador hiberna o cronômetro, visualmente, congela, mas o timer continua. Sendo assim se faltavam 2 minutos para uma ação, no cronômetro, antes de hibernar faltavam 2 minutos no cronômetro, mas ao voltar da hibernação faltam 2 minutos para ação no cronômetro, mas não no timer, que zerou. Entendeu?

Thales, aparece um erro com a mensagem: Undeclared identifier: PBT_APMQUERYSUSPEND. Na unit Messages ele não aparece. O que aparece lá são os abaixo: { PWR_SUSPENDREQUEST, PWR_SUSPENDRESUME, PWR_CRITICALRESUME } Mas, não sei o significado e não estou sabendo usar. A propósito existiu algum motivo para você colocar a procedure em protected e não em private? Tentei pesquisar na Internet, mas não encontrei nada!

Thales, Não consegui montar o procedimento! Não consigo encaixar os parâmetros na posição certa. Pode escrever o código da procedure para mim?

Gostaria de saber como, via programação, poderia saber se o computador vai hibernar. Mais objetivamente: tenho um programa que tem um timer. Gostaria que o programa ao perceber que o computador vai hibernar desative este timer. Isto é possível?

Olá, Gesiel. Acredito que sendo uma aplicação, que não faz uso de banco de dados, apenas o executável resolva. Inclusive, mesmo os componentes de terceiros(pelo menos os que eu uso), são incorporados aos executáveis sem nenhum problema. O uso das APIS também, em geral não deve oferecer nenhum problema. Costumo, muitas vezes levar executáveis em disquetes para testar em outros computadores e sistemas operacionais e nunca tive nenhum problema. Se existem outros casos, com certeza, colegas mais experientes aqui do fórum, complementarão este post.