A-AA+then

ปกติแล้วการ Shutdown Windows XP ยุ่งยากกว่า 98/ME ครับ เนื่องจาก XP ต้องเรียกใช้ Service ของ Windows ครับ โดย โค้ดเป็นการ Reboot, Shutdown Windows บน Windows 98/ME/XP ครับ มีตัวอย่างการใช้งานโค้ด ในโปรแกรม Quick ครับ

function MyExitWindows(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;


procedure RestartWindow;
begin
  MyExitWindows(EWX_REBOOT or EWX_FORCE);// Win All
end;

procedure ExitWindow;
begin
  MyExitWindows(EWX_POWEROFF or EWX_FORCE);// Win All
end;

Delphi

Relate

^