在应用程序中如何增加‘计算机重启’的功能啊？ ( 积分: 30 )

shanliqun · 2005-09-22

我现在的系统是win2000的，在我的应用程序中增加了‘关闭计算机’和‘重启计算机’的功能，但在编译环境下这两个功能是可用的，但当只运行exe时，那两个功能就不起作用了。这个关机和重启一定要和编译环境绑定吗？是不是要把系统的什么.DLL拷贝到我应用程序所在的文件夹啊？ 我程序中的相关代码如下： procedure Tfrm_posmain.ShutDown;  procedure AdjustToken(); //获取关机控制权  var    hdlProcessHandle, hdlTokenHandle, lBufferNeeded: Cardinal;    tmpLuid: Int64;  //tkpPrivilegeCount: Int64;    tkp, tkpNewButIgnored: TOKEN_PRIVILEGES;    Privilege: array[0..0] of _LUID_AND_ATTRIBUTES;  begin    hdlProcessHandle := GetCurrentProcess;    OpenProcessToken(hdlProcessHandle,      (TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY),       hdlTokenHandle);  // Get the LUID for shutdown privilege.    LookupPrivilegeValue('', 'SeShutdownPrivilege', tmpLuid);    Privilege[0].Luid := tmpLuid;    Privilege[0].Attributes := SE_PRIVILEGE_ENABLED;    tkp.PrivilegeCount := 1; // One privilege to set    tkp.Privileges[0] := Privilege[0];  // Enable the shutdown privilege in the access token of this process.    AdjustTokenPrivileges(hdlTokenHandle,      False,      tkp,      Sizeof(tkpNewButIgnored),      tkpNewButIgnored,      lBufferNeeded);  end; begin  AdjustToken;  case send of    1: ExitWindowsEx(EWX_FORCE, 0); //在紧急情况下强制关机。 ;    2: ExitWindowsEx(EWX_LOGOFF, 0); //以其他用户身份登录。 ;    3: ExitWindowsEx(EWX_POWEROFF, 0); //关闭系统并关闭电源。    4: if application.MessageBox('是否重新启动', '重启计算机提示框', 1+48)=1 then  //idok               begin                  showmessage('reboot');                  ExitWindowsEx(EWX_REBOOT, $FFFF); //重启操作系统               end               else                 exit;    5: if application.MessageBox('是否关闭', '关闭计算机提示框', 1+48)=1 then  //idok               begin                  showmessage('close');                  ExitWindowsEx(EWX_SHUTDOWN, $FFFF); //关机;               end               else                 exit;  else    EXIT;  end; end; // procedure Tfrm_posmain.N87Click(Sender: TObject); begin  send:=4;  ShutDown; end; procedure Tfrm_posmain.N88Click(Sender: TObject); begin  send:=5;  ShutDown; end;

shanliqun · 2005-09-22

我现在的系统是win2000的，在我的应用程序中增加了‘关闭计算机’和‘重启计算机’的功能，但在编译环境下这两个功能是可用的，但当只运行exe时，那两个功能就不起作用了。这个关机和重启一定要和编译环境绑定吗？是不是要把系统的什么.DLL拷贝到我应用程序所在的文件夹啊？ 我程序中的相关代码如下： procedure Tfrm_posmain.ShutDown;  procedure AdjustToken(); //获取关机控制权  var    hdlProcessHandle, hdlTokenHandle, lBufferNeeded: Cardinal;    tmpLuid: Int64;  //tkpPrivilegeCount: Int64;    tkp, tkpNewButIgnored: TOKEN_PRIVILEGES;    Privilege: array[0..0] of _LUID_AND_ATTRIBUTES;  begin    hdlProcessHandle := GetCurrentProcess;    OpenProcessToken(hdlProcessHandle,      (TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY),       hdlTokenHandle);  // Get the LUID for shutdown privilege.    LookupPrivilegeValue('', 'SeShutdownPrivilege', tmpLuid);    Privilege[0].Luid := tmpLuid;    Privilege[0].Attributes := SE_PRIVILEGE_ENABLED;    tkp.PrivilegeCount := 1; // One privilege to set    tkp.Privileges[0] := Privilege[0];  // Enable the shutdown privilege in the access token of this process.    AdjustTokenPrivileges(hdlTokenHandle,      False,      tkp,      Sizeof(tkpNewButIgnored),      tkpNewButIgnored,      lBufferNeeded);  end; begin  AdjustToken;  case send of    1: ExitWindowsEx(EWX_FORCE, 0); //在紧急情况下强制关机。 ;    2: ExitWindowsEx(EWX_LOGOFF, 0); //以其他用户身份登录。 ;    3: ExitWindowsEx(EWX_POWEROFF, 0); //关闭系统并关闭电源。    4: if application.MessageBox('是否重新启动', '重启计算机提示框', 1+48)=1 then  //idok               begin                  showmessage('reboot');                  ExitWindowsEx(EWX_REBOOT, $FFFF); //重启操作系统               end               else                 exit;    5: if application.MessageBox('是否关闭', '关闭计算机提示框', 1+48)=1 then  //idok               begin                  showmessage('close');                  ExitWindowsEx(EWX_SHUTDOWN, $FFFF); //关机;               end               else                 exit;  else    EXIT;  end; end; // procedure Tfrm_posmain.N87Click(Sender: TObject); begin  send:=4;  ShutDown; end; procedure Tfrm_posmain.N88Click(Sender: TObject); begin  send:=5;  ShutDown; end;

zqw0117 · 2005-09-22

没这种情况啊。我的程序里面用的蛮好的。不过有一点，对于9x系统，不要调用AdjustTokenPrivileges函数，直接调用ExitWindowsEx就可以了。

shanliqun · 2005-09-22

请问你的系统是2000的吗？

shanliqun · 2005-09-22

当我把运行环境开启时，并另外打开exe程序，这时我如点击‘关机’或‘重启’功能建时，一般只有编译环境被关闭而操作系统或其它应用程序并没有关闭。

在应用程序中如何增加‘计算机重启’的功能啊？ ( 积分: 30 )

shanliqun

Unregistered / Unconfirmed

shanliqun

Unregistered / Unconfirmed

zqw0117

Unregistered / Unconfirmed

shanliqun

Unregistered / Unconfirmed

shanliqun

Unregistered / Unconfirmed

Similar threads