ورود

View Full Version : Shutdown Or Restart Windows



delphi5
پنج شنبه 16 فروردین 1386, 10:29 صبح
function WindowsExit(RebootParam: Longword): Boolean;
var
TTokenHd: THandle;
TTokenPvg: TTokenPrivileges;
cbtpPrevious: DWORD;
rTTokenPvg: TTokenPrivileges;
pcbtpPreviousRequired: DWORD;
tpResult: Boolean;
const
SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
tpResult := OpenProcessToken(GetCurrentProcess(),
TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,
TTokenHd) ;
if tpResult then
begin
tpResult := LookupPrivilegeValue(nil,
SE_SHUTDOWN_NAME,
TTokenPvg.Privileges[0].Luid) ;
TTokenPvg.PrivilegeCount := 1;
TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
cbtpPrevious := SizeOf(rTTokenPvg) ;
pcbtpPreviousRequired := 0;
if tpResult then
Windows.AdjustTokenPrivileges(TTokenHd,
False,
TTokenPvg,
cbtpPrevious,
rTTokenPvg,
pcbtpPreviousRequired) ;
end;
end;
Result := ExitWindowsEx(RebootParam, 0) ;
end;



www.30lver.com (http://www.30lver.com/)

delphi5
پنج شنبه 16 فروردین 1386, 11:25 صبح
نحوه استفاده :




//reboot windows
ExitWindowsEx(EWX_REBOOT, 0) ;

//shut down windows
ExitWindowsEx(EWX_SHUTDOWN, 0) ;

// log off and prompt for login
ExitWindowsEx(EWX_LOGOFF, 0) ;





www.30lver.com (http://www.30lver.com)

nasr
پنج شنبه 16 فروردین 1386, 11:53 صبح
سلام

اگه این کد ها را اینجا بگذارید بهتره
http://www.barnamenevis.org/forum/showthread.php?t=52234