یه کد میخوام که سیستم مثل خود ویندوز رسیت بشه

یه کد میخوام که تو Button بنویسم بعد سیستم خیلی عادی مثل خود ویندوز رسیت بشه ...
به قول برو بچ اداری (قبلاً از همکاری شما متشکریم)

سلام

لطفا" عنوان بهتري براي پست خود انتخاب كنيد

کد:

---

function DoExitWindows(RebootParam: Longword): boolean;
var
  TTokenHd: THandle;
  TTokenPvg: TTokenPrivileges;
  cbtpPrevious: DWORD;
  rTTokenPvg: TTokenPrivileges;
  pcbtpPreviousRequired: DWORD;
  tpResult: boolean;
const
  cSE_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, cSE_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;

---

فراخواني :

کد:

---

DoExitWindows(EWX_REBOOT or EWX_FORCE);

---

مقادير معتبر :

EWX_LOGOFF, EWX_POWEROFF, EWX_REBOOT, EWX_SHUTDOWN

سلام
من كد لگ اف ويندوز رو دارم.
اگر مي خواستيش بگو تا آپلودش كنم.

نقل قول:

---

نوشته شده توسط soldier

سلام
من كد لگ اف ويندوز رو دارم.
اگر مي خواستيش بگو تا آپلودش كنم.

---

دمت گرم نیکی و پرسش ؟

NoneForce جان چشم ...
دستت هم درد نکنه ... ممنون.

سلام
آقا امین منو ببخش که دیر کردم.
اما NoneForce با ویرایشی که به متن خود داده بود اون
رو هم آموزش داده است.

اين كد ماله restarte:
ShellExecute(Handle, 'Open',PChar('shutdown.exe'), PChar('-r'), nil, SW_SHOW);

اين كد ماله shutdown:
ShellExecute(Handle, 'Open',PChar('shutdown.exe'), PChar('-s -c "HeHeHe - your about to get shutdown! :D"'), nil, SW_SHOW);