关机与禁止关机代码
今天抽空,寫完了定時關機程序的代碼,測試了一下,還不錯,以前寫過個禁止關機的程序,用來測試一下,看哪個強,先運行禁止關機的程序,用Windows xp的關閉計算機試了一下,關不了.
代碼很少:
private
procedure QueryEndSession(var Msg:TMessage);Message WM_QueryEndSession;
procedure TForm1.QueryEndSession(var Msg:TMessage);
begin
Msg.Result:=0;
end;
就是收到關機消息后返回0,告知還不能關機.
而定時關機這邊主要是用這條API指令來關機:
BOOL ExitWindowsEx(
UINT uFlags, // 關閉操作
DWORD dwReserved // 保留,0即可.
) ;
其中參數uFlags的取值及其含義:
EWX_FORCE 在緊急情況下強制關機。
EWX_LOGOFF 以其他用戶身份登錄。
EWX_POWEROFF 關閉系統并關閉電源。
EWX_REBOOT 重新啟動。
EWX_SHUTDOWN 安全地關機。
測試了一下,在開啟了禁止關機程序的情況下,使用EWX_SHUTDOWN,EWX_POWEROFF都不能關機.只有加上EWX_FORCE這個參數,禁止關機的程序不起作用了.
//關機代碼,CMD用 EWX_FORC可以突破禁止關機.
procedure TForm1.CloseWin(cmd:Cardinal);
var
VerInfo:TOSVersionInfo;
hToken:THANDLE;
tkp:TOKEN_PRIVILEGES;
Nothing:Cardinal;
begin
VerInfo.dwOSVersionInfoSize:=SizeOf(VerInfo);
GetVersionEx(VerInfo);
if VerInfo.dwPlatformId=VER_PLATFORM_WIN32_NT then
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, 0,nil, Nothing);
End;
ExitWindowsEx(CMD,0);
end;
總結
- 上一篇: 超实用在线编译网站,编辑器
- 下一篇: SQL,NoSQL和NewSQL的区别