Delphi 关键重启注销

//在初始化的时候获取权限
var

  hToken: THandle;

  Tkp: TTokenPrivileges;

  Zero: DWORD;

begin

  OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or

    TOKEN_QUERY, hToken);

  LookupPrivilegeValue(nil, ‘SeShutdownPrivilege‘, Tkp.Privileges[0].Luid);

  Tkp.PrivilegeCount := 1;

  Tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;

  AdjustTokenPrivileges(hToken, False, Tkp, SizeOf(TTokenPrivileges),
    nil, Zero);

end;
--------****---------
 ExitWindowsEx(EWX_SHUTDOWN, 0);//close
ExitWindowsEx(EWX_REBOOT, 0);//reoot

ExitWindowsEx(EWX_LOGOFF,0)// 注销

时间： 2024-10-08 14:45:24

Delphi 关键重启注销的相关文章

Delphi的对象注销方法Destroy和free

当您使用完对象后,您应该及时撤销它,以便把这个对象占用的内存释放出来.您可以通过调用一个注销方法来撤销您的对象,它会释放分配给这个对象的内存. Delphi的注销方法有两个:Destroy和Free.Delphi建议使用Free,因为它比Destroy更为安全,同时调用Free会生成效率更高的代码. 您可以用下列的语句释放用完的Employee对象: Employee.Free; 和Create方法一样,Free方法也是TEmployee从TObject中继承过来的.把您的注销放在try…fin

Linux 关机/重启/注销命令

关机 shutdown -h 0 #<==O秒后关机 shutdown -h now #<==现在关机 shutdown -h 10 #<==10分钟后关机 shutdown -h 23:20 #<==23:20分关机 shutdown -c #<==取消shutdown关机命令 init 0 #<==立马关机(切换运行级别为0,推荐使用) halt #<=

C# 操作电脑关机重启注销休止休眠

// 关机强制电脑10秒之内关机 //System.Diagnostics.Process.Start("shutdown", "-s -f -t 10"); // 重启强制电脑10秒之内关机//System.Diagnostics.Process.Start("shutdown", "-r -f -t 10"); // 注销 //System.Diagnostics.Process.Start("shutdow

6.关机重启注销

关机重启命令1.shutdownshutdown -h now:立即关机shutdown -h 1:一分钟后关机shutdown -r:立即重启 2.halthalt:直接使用,等价于shutdown -h now直接关机 3.rebootreboot:直接使用,等价于shutdown -r立即重启计算机 4.syncsync:把内存中的数据同步到磁盘上.关机或重启时,应该执行这一步用户的登录和注销一般情况下,我们喜欢使用root登录,因为有权限比较方便.但是在公司,是很少使用root账户登录

关机/重启/注销

Imports System.Runtime.InteropServices <DllImport("kernel32.dll", ExactSpelling:=True)> _ Friend Shared Function GetCurrentProcess() As IntPtr End Function <DllImport("advapi32.dll", ExactSpelling:=True, SetLastError:=Tr

Linux运维常用命令

Linux运维常用的150个命令命令功能说明线上查询及帮助命令(2个) man 查看命令帮助,命令的词典,更复杂的还有info,但不常用. help 查看Linux内置命令的帮助,比如cd命令. 文件和目录操作命令(18个) ls 全拼list,功能是列出目录的内容及其内容属性信息. cd 全拼change directory,功能是从当前工作目录切换到指定的工作目录. cp 全拼copy,其功能为复制文件或目录. find 查找的意思,用于查找目录及目录下的文件. mkdir 全拼mak

不知不觉两个月过去了

今天想随便写点东西,突然发现之前的学习笔记是3月14号,正好过了两个月,这两个月都在干什么呢?lol,炉石,kof13,dota,偶尔在弄下毕业设计,因为毕业设计的题目是以前做过很类似的,所以就把之前的演示了一下就过了中期检查.前几天我的室友跟我说,原来你才是真正的玩霸,回头想了想,确实啊,大学四年把所有的精品网游还有一些单机都玩了一遍,突然感觉我都可以去做游戏策划了. 为什么不去空间,人人去写这篇文章呢,或者用记事本写也行啊?简单的理由就是不想让朋友和家里人知道自己过得不好,同时也想和别人去说

Linux基础必会命令

*****做为运维,你必须熟练掌握的linux命令: (不定时更新各命令的实际用法与参数讲解) 1.线上查询及帮助命令(2个) man help 2.文件和目录操作命令(19个) ls cd cp find mkdir mv pwd rename rm rmdir touch tree basename dirname chattr lsattr file md5sum 3.查看文件及内容处理命令(19个) cat tac more less head tail cut split paste

linux重要命令行总结

线上查询及帮助命令(2个) man 查看命令帮助,命令的词典,更复杂的还有info,但不常用 help 查看linux内置命令的帮助,比如cd命令文件和目录操作命令(18个) ls 全拼list,功能是列出目录的内容及其内容属性信息 cd 全拼change directory,功能是从当前工作目录切换到指定的工作目录 cp 全拼是copy,其功能

Delphi 关键 重启 注销

Delphi 关键 重启 注销的相关文章

Delphi 关键重启注销

Delphi 关键重启注销的相关文章