程序的开机关机重启，开机启动，休眠功能delphi实现

 TShutDownStatus = (sdShutDown,sdReboot,sdLogOff,sdPowerOff);

 procedure ShutDown(sdStatus : TShutDownStatus);

  var

     NewState:       TTokenPrivileges;

     lpLuid:         Int64;

     ReturnLength:   DWord;

     ToKenHandle:    Cardinal;

  begin

     OpenProcessToken(GetCurrentProcess,

                   TOKEN_ADJUST_PRIVILEGES

                   OR TOKEN_ALL_ACCESS

                   OR STANDARD_RIGHTS_REQUIRED

                   OR TOKEN_QUERY,ToKenHandle);

     LookupPrivilegeValue(nil,'SeShutdownPrivilege',lpLuid);

     NewState.PrivilegeCount:=1;

     NewState.Privileges[0].Luid:=lpLuid;

     NewState.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;

     ReturnLength:=0;

     AdjustTokenPrivileges(ToKenHandle,False,NewState,0,nil,ReturnLength);

    case sdStatus of

      sdShutDown: ExitWindowsEx(EWX_SHUTDOWN OR EWX_POWEROFF or EWX_FORCE,0);

      sdReboot: ExitWindowsEx(EWX_REBOOT OR EWX_POWEROFF or EWX_FORCE,0);

      sdLogOff:ExitWindowsEx(EWX_LOGOFF,0);

      sdPowerOff:SetSystemPowerState(False,True);

      end;
  end;

  {

    函数功能:实现系统睡眠休眠功能

    bHibernate : True 睡眠  False 休眠

  } 

procedure TEpComOper.SystemSleep(bHibernate:Boolean);

  var

    h_Module : THandle;

    pSetSuspendState : function(Hibernate,ForceCritical,DisableWakeEvent:Boolean):Boolean;

  begin

    h_Module := LoadLibrary('PowrProf.dll');

    if h_Module <>0 then

    begin

      pSetSuspendState := GetProcAddress(h_Module,'SetSuspendState');

      if @pSetSuspendState<>nil then

      begin

        pSetSuspendState(bHibernate,False,False);

      end;

      FreeLibrary(h_Module);

    end;

  end;

{设置取消程序的开机启动功能}

  procedure TEpComOper.SetAppAutoRun(bRun : Boolean);

  var

    Reg:TRegistry;

  begin

    Reg := TRegistry.Create;

    try

      Reg.RootKey := HKEY_LOCAL_MACHINE;

      Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',True);

      if bRun then

        Reg.WriteString(‘test’,Application.ExeName)

      else

        Reg.DeleteValue('test');

      Reg.CloseKey;

    finally

      Reg.Free;

    end;

  end;