为了正常的体验网站,请在浏览器设置里面开启Javascript功能!
首页 > delphi7强制关机

delphi7强制关机

2018-04-13 4页 doc 16KB 33阅读

用户头像

is_601191

暂无简介

举报
delphi7强制关机delphi7强制关机 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; procedure Button1Click(Sender: TObject); private { Private d...
delphi7强制关机
delphi7强制关机 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; function GetOperatingSystem(): string; procedure ShutDownComputer(); procedure Get_Shutdown_Privilege(); var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin ShutDownComputer(); end; procedure ShutDownComputer(); begin if GetOperatingSystem() = 'Windows NT/2000/XP' then begin Get_Shutdown_Privilege(); //调用此函数会出现系统关机提示窗口,并允许用户取消关机动作 InitiateSystemShutDown(nil, '关机提示:讨厌你所以关了你~', 3, True, False); // InitiateSystemShutDown去掉的话就不显示提示窗口 ExitWindowsEx(EWX_SHUTDOWN+EWX_FORCE+EWX_POWEROFF+EWX_FORCEIFHU NG,0); end else begin ExitWindowsEx(EWX_SHUTDOWN+EWX_FORCE+EWX_POWEROFF+EWX_FORCEIFHU NG,0); end; end; function GetOperatingSystem(): string; //获取操作系统信息 var osVerInfo: TOSVersionInfo; begin Result:= ''; osVerInfo.dwOSVersionInfoSize:= SizeOf(TOSVersionInfo); if GetVersionEx(osVerInfo) then case osVerInfo.dwPlatformId of VER_PLATFORM_WIN32_NT: begin Result:= 'Windows NT/2000/XP' end; VER_PLATFORM_WIN32_WINDOWS: begin Result := 'Windows 95/98/98SE/Me'; end; end; end; procedure Get_Shutdown_Privilege(); //获得用户关机特权,仅对Windows NT/2000/XP var rl: Cardinal; hToken: Cardinal; tkp: TOKEN_PRIVILEGES; begin OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken); if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid) then begin tkp.Privileges[0].Attributes:= SE_PRIVILEGE_ENABLED; tkp.PrivilegeCount:= 1; AdjustTokenPrivileges(hToken, False, tkp, 0, nil, rl); end; end; end.
/
本文档为【delphi7强制关机】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑, 图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。 本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。 网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。

历史搜索

    清空历史搜索