Muito obrigado amigos ja consegui desligar o windows XP, fiz como o amigo romero falou, coloquei aquele cósigo no module, mas esta faltando desligar pela hora.

Coloquei na propriedadce timer o seguinte:

txthora=time  -  intervalo 1000

Agora quando a txthora chegar em 12:00:00 o micro deve ser desligado.

Fiz o seguinte no form load:

If txthora.Text = "15:44:00" Then
DesligaNT False  ' Função que o amigo Romero mandou chamar..só funcionou em um comando....

Os amigos sabem o que esta errado?

 

Agradeço pela atenção de vocês...

Valeu... mas tente isso:

Em Executar digite "rundll32 exitwindow" Se funcionar é a mesma coisa com o Shell.

Talves vc esteja usndo o 98 e la isso funciona...???...!!!

Valeu..

Valeu... Mas Tente Isso...

Em Executar digite "rundll32 exitwindow" Se funcionar...

talvez Vc esteja usando o 98 e la isso funciona...

 

Valeu...