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

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

ICP备案编号:粤ICP备06052964号

www.sosof.com

选择显示字体大小

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

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准网站致力的规范

www.sosof.com

选择显示字体大小

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

shouchang();

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准 网站致力的规范

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

标准网站致力的规范