Выключение или перезагрузка компьютера

[Dr.Snipper]

Можно ли присвоить кнопке функцию перезагрузки компьютера. Если можно,то как??? :?:  :!:  :!:  :?:

[x77]

ExitWindows, ExitWindowsEx. но в NT придётся предварительно получить соответствующие привелегии и скормить их текущему процессу.

[Серж]

Dr.Snipper,  извини, но текст на С, переделка несложна.

BOOL SetCurrentPrivilege( LPCTSTR Privilege, BOOL bEnablePrivilege )
{
   HANDLE hToken;
   LUID luid;
   TOKEN_PRIVILEGES tp, tpPrevious;
   DWORD cbPrevious = sizeof( TOKEN_PRIVILEGES );
   BOOL bSuccess = FALSE;

   if ( ! LookupPrivilegeValue( NULL, Privilege, &luid ) )
      return FALSE;

   if( ! OpenProcessToken( GetCurrentProcess(), TOKEN_QUERY | TOKEN_ADJUST_PRIVILEGES, &hToken ) )
      return FALSE;

   tp.PrivilegeCount = 1;
   tp.Privileges[0].Luid = luid;
   tp.Privileges[0].Attributes = 0;

   AdjustTokenPrivileges( hToken, FALSE, &tp, sizeof( TOKEN_PRIVILEGES ), &tpPrevious, &cbPrevious );

   if ( GetLastError() == ERROR_SUCCESS )
   {
      tpPrevious.PrivilegeCount = 1;
      tpPrevious.Privileges[0].Luid = luid;

      if ( bEnablePrivilege )
         tpPrevious.Privileges[0].Attributes |= ( SE_PRIVILEGE_ENABLED );
      else
         tpPrevious.Privileges[0].Attributes &= ~( SE_PRIVILEGE_ENABLED );

      AdjustTokenPrivileges( hToken, FALSE, &tpPrevious, cbPrevious, NULL, NULL );

      if ( GetLastError() == ERROR_SUCCESS )
         bSuccess=TRUE;
   }

   CloseHandle( hToken );

   return bSuccess;
}

if (!SetCurrentPrivilege( SE_SHUTDOWN_NAME, TRUE ) )
    {
          ::MessageBox(0,"Недостаточно привилегий!","",MB_OK);
         
    }

ExitWindowsEx(EWX_POWEROFF,0);

[x77]

ну да.

Код:

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; 

// Example to shutdown Windows: 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  MyExitWindows(EWX_POWEROFF or EWX_FORCE); 
end; 

// Example to reboot Windows: 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  MyExitWindows(EWX_REBOOT or EWX_FORCE); 
end; 

хотя в 9x/Me достаточно просто сказать ExitWindows (...);

(код взят с vingrad.ru)