Mega Code Archive

 

Categories / Delphi / System

 

Bilgisayarı reboot etmek

var hToken : THandle; tkp, ptkp : TTokenPrivileges; i : dword; begin //* Get a token for this process. */ OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken); //* Get the LUID for the shutdown privilege. */ LookupPrivilegeValue(NiL, 'SE_SHUTDOWN_NAME', tkp.Privileges[0].Luid); tkp.PrivilegeCount := 1; ///* one privilege to set */ tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; //* Get the shutdown privilege for this process. */ AdjustTokenPrivileges(hToken,FALSE,tkp,0,ptkp,i); //* Cannot test the return value of AdjustTokenPrivileges. */ GetLastError; //* Shut down the system and force all applications to close. */ ExitWindowsEx(EWX_SHUTDOWN or EWX_FORCE, 0); end. //Kaan//