درخواست کدی که بشه باهاش سیستم را Restart و Shutdown کرد

[ماریا وکیلی]

راستش برنامه ای که ساختم برای اینکه جواب بده احتیاج به بارگذاری سیستم داره

[Developer Programmer]

به توابع API نیاز دارید، لذا اگه بعد از جستجو در این سایت نیافتید! به سی دی های MSDN مراجعه کنید

[szabeh]

یک سرچ بکن مطالبی تو سایت هست

[ماریا وکیلی]

من جستجو کردم ولی اونی که می خواستم را پیدا نکردم

لطف کنید اگر می دانید باید به کجا مراجه کنم لینکش را اینجا بذارین

[vcldeveloper]

http://www.chami.com/tips/delphi/120996D.html

[szabeh]

ببین این جواب میده یا نه؟



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,TToke nPvg,cbtpPrevious,rTTokenPvg,pcbtpPreviousRequired ) ;
end;
end;
Result := ExitWindowsEx(RebootParam, 0) ;
end;


برای استفاده از این کد:



//Shutdown
WindowsExit(EWX_POWEROFF or EWX_FORCE) ;

//Reboot Windows
WindowsExit(EWX_REBOOT or EWX_FORCE) ;

[szabeh]

دوستان دیگر نظری ندارند

[محمد میرمصطفی]

من که بعد از API از shutown -t 0 -s -f همیشه استفاده می‏کنم. رو Local، امکان نداره جواب نده.

[ماریا وکیلی]

دوستان دیگر نظری ندارند

خیلی عالی بود

دست شما درد نکنه