Chamar relógio do Windows

Delphi

17/01/2007

Boa tarde,

Gostaria de saber como faço para chamar o relógio do windows.

Tipo, vou apertar um botão e o relógio do windows abre!

Obrigado,


Henriquem

Henriquem

Curtidas 0

Respostas

Brunacarla

Brunacarla

17/01/2007

Ola Boa Tarde!!!

Utilize o seguinte Comando:

WinExec(´RunDLL32.exe Shell32.DLL,Control_RunDLL timedate.cpl´,SW_SHOW);


Abracos.


GOSTEI 0
Henriquem

Henriquem

17/01/2007

Perfeito!!!


Valeu Bruna...


GOSTEI 0
Henriquem

Henriquem

17/01/2007

Estou chamando o relógio do windows, e mantenho o programa preso no processo até que o relógio seja fechado.

Porém, estou testando com o Findwindow e quando pressiono o ok do relógio o status não esta mudando!


win := FindWindow(nil,´Propriedades de Data/hora´);
while Win <> 0 do
begin
win := FindWindow(nil,´Propriedades de Data/hora´);
end;

Quando eu fecho o relógio pelo X do canto superior direito do relógio o status volta para 0, mas quando pressiono o OK, ou Cancelar o status parece que não volta...

Alguém pode me ajudar?!


GOSTEI 0
Brunacarla

Brunacarla

17/01/2007

Testei aqui e comigo deu certo.

A única coisa foi que tive que substituir:
´Propriedades de Data/hora´ por ´Propriedades de Data e hora´

Utilizo Windows 2000.
Qual o seu SO? Talvez este possa ser o problema.
O SO deixando a janela de Data e Hora na memória quando você não usa o X.

Mas aqui no 2000 funcionou certinho.


GOSTEI 0
Henriquem

Henriquem

17/01/2007

Na máquina que eu vou precisar rodar esse programa, é Win98...

Não testei no 2000, mas acho que tem diferença sim!!! só não consegui descobrir qual... :(


GOSTEI 0
POSTAR