資料來源:中華網科技頻道--網路教室http://tech.china.com/zh_cn/netschool/programme/cbuilder/ 控制Windows關機的方法(簡體)http://tech.china.com/zh_cn/netschool/programme/cbuilder/4019/20000816/220554.htm

哪其他windows me,2000,xp，又該如何呢？

引言: 哪其他windows me,2000,xp，又該如何呢？ < face="Verdana, Arial, Helvetica"> 我用win2000也可以用ExitWindowsEx關機阿... 不知道你的問題是什麼?

這是在msdn找到的，在exit以前需要做這個動作．        HANDLE hToken;  TOKEN_PRIVILEGES tkp;    // Get a token for this process.    if (!OpenProcessToken(GetCurrentProcess(),          TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY, &hToken))      error("OpenProcessToken");    // Get the LUID for the shutdown privilege.    LookupPrivilegeValue(NULL, SE_SHUTDOWN_NAME,          &tkp.Privileges[0].Luid);    tkp.PrivilegeCount = 1;  // one privilege to set     tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;    // Get the shutdown privilege for this process.    AdjustTokenPrivileges(hToken, FALSE, &tkp, 0,          (PTOKEN_PRIVILEGES)NULL, 0);    // Cannot test the return value of AdjustTokenPrivileges.    if (GetLastError() != ERROR_SUCCESS)      error("AdjustTokenPrivileges");    // Shut down the system and force all applications to close.    if (!ExitWindowsEx(EWX_SHUTDOWN | EWX_FORCE, 0))      error("ExitWindowsEx");      發表人 -

忘了說，上面的sample是在2000/XP底下用的.

這裡也有一篇    

實做關機程序

資料來源: http://home.kimo.com.tw/jyemii.jue/artifacts/delphi/faq/faq19003001.htm 作者: 朱子 先生 在 Windows NT 的環境下使用 ExitWindowsEx 的 API 時，必須另外再呼叫AdjustTokenPrivileges，有誰能告訴我該如何使用 ExitWindowsEx 加上 AdjustTokenPrivileges 來做到關機的功能？ 解答 請參閱以下的程式碼及相關說明 //iFlags: // one of the following must be specified // EWX_LOGOFF // EWX_REBOOT // EWX_SHUTDOWN // following attributes may be combined with above flags // EWX_POWEROFF // EWX_FORCE : terminate processes function WinExitInNT( iFlags : integer ) : boolean; begin Result := True; if ( SetPrivilege( 'SeShutdownPrivilege', True ) ) then begin if( not ExitWindowsEx( iFlags, 0 ) )then begin Result := False; end; SetPrivilege( 'SeShutdownPrivilege', False ) end else begin // handle errors... Result := False; end; end; //Enabled or DisEnabled the SE_SHUTDOWN_NAME privilege //sPrivilegeName: // 'SE_SHUTDOWN_NAME' //bEnabled : // Enabled or DisEnabled 'SE_SHUTDOWN_NAME' privilege function SetPrivilege(sPrivilegeName : string; bEnabled : boolean ): boolean; var TPPrev, TP : TTokenPrivileges; Token : THandle; dwRetLen : DWord; begin Result := False; //opens the access token associated with a process. OpenProcessToken(GetCurrentProcess, //handle to process TOKEN_ADJUST_PRIVILEGES //Required to change the // privileges specified in an access token. or TOKEN_QUERY, //Required to query the contents //of an access token. Token); TP.PrivilegeCount := 1; //retrieves the locally unique identifier (LUID) used on a specified system to //locally represent the specified privilege name. if( LookupPrivilegeValue( Nil, //attempts to find the privilege name on the local system. PChar( sPrivilegeName ), // address of string specifying the privilege TP.Privileges[ 0 ].LUID ) // address of locally unique identifier ) then begin if( bEnabled )then //Give this privileges begin TP.Privileges[ 0 ].Attributes := SE_PRIVILEGE_ENABLED; end else begin //NOT Give this privileges TP.Privileges[ 0 ].Attributes := 0; end; dwRetLen := 0; //enables or disables privileges in the specified access token. Result := AdjustTokenPrivileges( Token, // handle to token that contains privileges False, //modifies privileges TP, // pointer to new privilege information SizeOf( TPPrev ), // size, in bytes, of the TPPrev buffer TPPrev, // receives original state of changed privileges dwRetLen // receives required size of the TPPrev buffer ); end; CloseHandle( Token ); end; 時間就是金錢---[ 發問前請先找找舊文章]

在 win2000 下若執行這個程式的使用者本來就沒有關機的選項， 程式好像也關不了機？