FoxPro/Visual FoxPro - Apagar pc desde boton

Hola que tal, eh estado tratando de apagar la pc por completo desde un boton en Fox, pero hasta hoy no eh podido, he intentado varios codigos que eh leido en post pasados pero no me funciona, lo unico que me ah funcionado es el de cerrar sesion, pero lo que ocupo es pagar la pc por completo.

Alguien me puede ayudar en esto?

Tocayo, Neo, Plinio? o algun sabio mas?

Gracias de antemano!

Que tal....
Lo de apagar la pc lo puedes hacer con una API, en la web puedes encontrar varios ejemplos de como hacerlo, debes tener en cuenta que antes de ejecutarlo debes leer la documentacion ya que en algunos casos varia, por ejemplo se debe conocer que version de windows estas usando antes de apagar el equipo asi como tambien verificar si el usuario que esta activo tiene permisos de apagar el equipo.
Cheka el link:
http://portalfox.com/index.php?name=News&file=article&sid=831

C-ya!

chale, ya intente pero aun no me quiere funcionar. muchas gracias de todas formas

Cuando dices que no te funciona..no te marca algun error? como estas implementando el API??, si no detallas el error no te podemos ayudar. :(

Pues lo mejor sería que me dijeras como lo hago, que procedimientos debo hacer desde la implementacion de la API, claro si no es molestia.
Gracias por tu ayuda

Un ejemplo:

Esta es la función API que te permitirá Apagar, reiniciar la pc; además de eso cambiar el usuario actual.

#DEFINE LOGOFF 0
#DEFINE SHUTDOWN 1
#DEFINE REBOOT 2
#DEFINE FORCE 4
#DEFINE POWEROFF 8

DECLARE SHORT ExitWindowsEx IN Win32API;
SHORT uFlags, INTEGER dwReserved

=ExitWindowsEx(SHUTDOWN, 0)

*********************Otro ejemplo:

Utilizando WMI para apagar un computador.

objWMI = GetObject("winmgmts:\\")
cCadWMI = "Select * from Win32_OperatingSystem"
oBServ = objWMI.ExecQuery(cCadWMI)

For Each Pc in oSys
Pc.Win32Shutdown(1)
Next


**************************otro ejemplo mas:

Esta es otra forma de apagar el computador sin utilizar API ..... pero invocando al Shell de windows


oShell = CreateObject("Shell.Application")
oShell.ShutdownWindows


Suerte►

Hola que tal Neo, gracias por contestar, intente el primer ejemplo y no me funciona, no marca error, solo no hace NADA, en el segundo ejemplo me marca un error: Property OSYS is not found.
y en el tercer ejemplo: si lo hace : ), pero no habria manera de que quitar el sheel de windows, que lo apage directo sin preguntar nada?

Gracias por sus respuestas!!

Probablemente el codigo de la API, lo estoy metiendo en otro lado, en donde pongo el codigo de la API?

gracias

lee esto

http://support.microsoft.com/kb/251310/es

Suerte

Tocayo, siempre dayudandome, muchas gracias, ya quedo al chingaso...

Muchas gracias a todos por aportar sus conocimientos.

ya sabes tocayo un placer ayudarte.

Suerte