'**************** Code Begin *******************
Private Declare Function apiExitWindowsEx Lib "user32" _
Alias "ExitWindowsEx" _
(ByVal uFlags As Long, ByVal dwReserved As Long) _
As Long
Public Const EWX_FORCE = 4 'Forcibly terminates processes
'that do not respond.
Public Const EWX_LOGOFF = 0 'Terminates processes, then logs off.
Public Const EWX_SHUTDOWN = 1 'Powers the system off, if possible.
Public Const EWX_REBOOT = 2 'Reboots the system.
Function fTerminateWin(lngExitVal As Long)
fTerminateWin = apiExitWindowsEx(lngExitVal, 0)
End Function
'***************** Code End *******************
BG
"Søren Aaholm Møller" <swdata@image.dk> skrev i en meddelelse
news:H3q27.2141$ae6.179803@news010.worldonline.dk...
> Jeg mangler API-kaldet til nedlukning af Windows 2000 og Windows XP.
> API-kaldet for genstart er også velkommen.
>
>