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 下一页
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
