Reboot windows xp

Jeg har´noget Delphi kode du kan få ... Det er 90% magen til C++ kode i DET HER tilfælde !

Jens B

Bare kom med det så kan jeg prøve om jeg kan hitte ud af det ;)
ER ikke den vilde nørd til c++ (indnu)

Hvad med denne side: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/base/shutting_down.asp

Dette virker:

#include <windows.h>

bool ShutDownSystem(long flag)
{
    OSVERSIONINFO        vi ;
    LUID                luid ;
    HANDLE                hProcess, hToken ;
    long                ret = -1 ;
    DWORD                s ;
    TOKEN_PRIVILEGES    tp, tpOld ;

    vi.dwOSVersionInfoSize = sizeof(vi) ;
    GetVersionEx(&vi) ;
    if ( vi.dwPlatformId == VER_PLATFORM_WIN32_NT )
    {
        // Der køres NT, og vi skal have lavet rettigheder til at lukke systemet ned
        if ( LookupPrivilegeValue(0,SE_SHUTDOWN_NAME,&luid) )
        {
            hProcess = GetCurrentProcess()  ;
            if ( hProcess )
            {
                if ( OpenProcessToken(hProcess,TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY, &hToken) )
                {
                    tp.PrivilegeCount = 1 ;
                    tp.Privileges->Attributes = SE_PRIVILEGE_ENABLED ;
                    tp.Privileges->Luid.HighPart = luid.HighPart ;
                    tp.Privileges->Luid.LowPart = luid.LowPart  ;
                    ret = AdjustTokenPrivileges(hToken, FALSE,&tp,sizeof(tp),&tpOld,&s) ;
                }
                CloseHandle(hToken) ;
            }
        }
    }
   
    if ( ExitWindowsEx(flag,0) )
        return true ;
    else
        return false ;   
}

int main()
{
    ShutDownSystem(EWX_REBOOT|EWX_FORCE) ;
}

Grunden til at ExitWindowsEx alene ikke virker, er at processeb skal have rettigheder til at lukke Windows under NT / XP.