当前位置: 首页 > 图文教程 > 开发语言 > Delphi > 在 NT内核的操作系统上实现系统关闭

Delphi
Delphi编程中Http协议应用(一)
Delphi存取图像完整解决方案
简析Delphi中的XML编程
用Delphi实现IP地址的隐藏
Delphi面向对象编程的20条规则
Delphi中的Wrapper设计模式
用Delphi实现软件的在线升级
Delphi7.0实现添加记录的“携带”实现
Delphi编程访问注册表
让Delphi的DBGrid支持鼠标轮
怎样在DELPHI中实现文件切割/组合
Delphi设计可中/英文切换的界面技巧
用Delphi制作以浏览器为界面的应用程序
Delphi 中压缩流和解压流的应用
Delphi控制并行端口位操作
Delphi编写后台监控软件
用Delphi编写VxD设备驱动程序
用Delphi进行OpenGL编程学习心得
DELPHI编程实现3DS的动画播放
用Delphi制作动态菜单

No. « 1 2 3 4 »

技术文章搜索

关键字

Delphi 中的 在 NT内核的操作系统上实现系统关闭

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-10-30   浏览: 145 ::
收藏到网摘: n/a

 
很多时候，我们可能需要执行关闭计算机或重新启动计算机的操作，但在 WinNT 内核的操作系统中，我们不能只调用简单的 API 函数来完成这样的操作。这并不是一个复杂的问题，却有时候会让人“为难”，如果是这样，现在解决这个问题的办法来了。

　　***************************************************************************
　　具体使用示例：
　　注销当前用户 => ExitWin32Sys(EWX_FORCE or EWX_LOGOFF);
　　重新启动计算机 => ExitWin32Sys(EWX_FORCE or EWX_REBOOT);
　　关闭计算机 => ExitWin32Sys(EWX_FORCE or EWX_POWEROFF);
　　***************************************************************************
　　具体代码：




　　uses
　　Windows;

　　function GetSysTypes: Boolean; // & 获取操作系统类型 &
　　function SetPrivilege(sPrivilegeName: AnsiString; bEnable: Boolean): Boolean; // & 设置权限 &
　　procedure ExitWin32Sys(iFlags: Integer); // & 执行注销、退出或重启系统的操作 &

　　implementation

　　function GetSysTypes: Boolean;
　　var
　　Ver: TOSVersionInfo;
　　begin
　　Result := False;
　　Ver.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
　　if GetVersionEx(Ver) then
　　if Ver.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS then
　　Result := True
　　else
　　Result := False;
　　end;




　　function SetPrivilege(sPrivilegeName: AnsiString; bEnable: Boolean): Boolean;
　　var
　　TPPrev, TP: TTokenPrivileges;
　　Token : THandle;
　　dwRetLen : DWord;
　　begin
　　Result := False;
　　OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or
　　TOKEN_QUERY, Token);
　　TP.PrivilegeCount := 1;
　　if LookupPrivilegeValue(nil,PAnsiChar(sPrivilegeName),TP.Privileges[0].LUID) then
　　begin
　　if bEnable then
　　TP.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED
　　else
　　TP.Privileges[0].Attributes := 0;
　　dwRetLen := 0;
　　Result := AdjustTokenPrivileges(Token, False, TP, SizeOf(TPPrev), TPPrev, dwRetLen);
　　end;
　　CloseHandle(Token);
　　end;

　　procedure ExitWin32Sys(iFlags: Integer);
　　begin
　　if GetSysTypes then
　　ExitWindowsEx(iFlags,0)
　　else
　　if SetPrivilege('SeShutdownPrivilege',True) then
　　if not ExitWindowsEx(iFlags,0) then
　　SetPrivilege('SeShutdownPrivilege',False);
　　end;