P.T.A.M. Administrator

Joined: 08 Oct 2003 Posts: 752 Location: Greece
|
Posted: Oct 10th, 2003 08:20 AM Post subject: Shutdown Windows (Windows 9x, Me) |
|
|
| Code: | Private Const EWX_SHUTDOWN As Long = 1
Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
Private Sub ShutDown()
lngResult = ExitWindowsEx(EWX_SHUTDOWN, 0&)
End Sub |
_________________ No one is completely useless. They can at least be an example of what to avoid. |
|