Close_Cmp.rar_close

//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Mainform.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void PreProcess(void) { //关机预处理，在Windows2000以上的操作系统通常需要这一过程 HANDLE hToken; TOKEN_PRIVILEGES tkp; OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY, &hToken); LookupPrivilegeValue(NULL, SE_SHUTDOWN_NAME,&tkp.Privileges[0].Luid); tkp.PrivilegeCount = 1; tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED; AdjustTokenPrivileges(hToken, FALSE, &tkp, 0,(PTOKEN_PRIVILEGES)NULL, 0); } void __fastcall TForm1::BitBtn1Click(TObject *Sender) {// 重新登录计算机 PreProcess(); ExitWindowsEx(EWX_LOGOFF, 0); } //--------------------------------------------------------------------------- void __fastcall TForm1::BitBtn2Click(TObject *Sender) {//关闭计算机 PreProcess(); ExitWindowsEx(EWX_SHUTDOWN | EWX_FORCE, 0); } //--------------------------------------------------------------------------- void __fastcall TForm1::BitBtn3Click(TObject *Sender) {//重新启动计算机 PreProcess(); ExitWindowsEx(EWX_REBOOT | EWX_FORCE, 0); } //--------------------------------------------------------------------------- void __fastcall TForm1::BitBtn4Click(TObject *Sender) {//强制关闭计算机 PreProcess(); ExitWindowsEx(EWX_POWEROFF| EWX_FORCE, 0); } //---------------------------------------------------------------------------