کد ریست کردن کامپیوتر

[ali_sorouri2005]

سلام
می خواستم بپرسم که کسی کدی داره که بشه باهاش کامپیوتر رو ریست کرد؟
با تشکر

[DataMaster]

shutdown -r -t 1 -f
توی Run اجرا کن

[ali_sorouri2005]

سلام datamaster
من می خوام این کارو توی یه برنامه دلفی و با فشار یه دکمه انجام بدم نه از تو run ویندوز
با تشکر

[Dsh_Delphi]

من برات یه کامپوننت میفرستم که
هم ریست .
هم شات داون و ... انجام میده ایمیل کن و تو ایمیل کاملا توضیح بده که چی میخوای

D_Shokoohi@yahoo.com

[touraj]

من برات یه کامپوننت میفرستم که
هم ریست .
هم شات داون و ... انجام میده ایمیل کن و تو ایمیل کاملا توضیح بده که چی میخوای

D_Shokoohi@yahoo.com
اگه یه لطفی کنی به من هم بدی ممنون میشم.

[ali_sorouri2005]

سلام
باشه حتما میل مزنم دستت درد نکنه

[Dsh_Delphi]

آقای Touraj :

برایم ایمیل کن و بگو چی میخوای .

D_shokoohi@yahoo.com

[B_YAGHOBI]

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;


طریقه استفاده:

//Shutdown
WindowsExit(EWX_POWEROFF or EWX_FORCE) ;

//Reboot Windows
WindowsExit(EWX_REBOOT or EWX_FORCE) ;

[saeed_d]

سلام
با عرض پوزش از استاد گرامی. فکر کنم اینجوری بهتر خونده بشه.


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;

طریقه استفاده:


//Shutdown
WindowsExit(EWX_POWEROFF or EWX_FORCE) ;

//Reboot Windows
WindowsExit(EWX_REBOOT or EWX_FORCE) ;