首页 > > 程序设计 > delphi >

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

2008-02-23 07:18:39来源：互联网阅读 ()

1 2 下一页

　　很多时候，我们可能需要执行关闭计算机或重新启动计算机的操作，但在 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;

上一篇：教你如何用Delphi注册快捷方式
下一篇：用注册表对delphi程序加密

1 2 下一页

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有