计算机锁定状态下执行关机、注销任务

2009-4-27 11:37 828 0

摘要: 来至 footsetp// xp+sp2下测试成功 program Portscan;{$APPTYPE CONSOLE} usessysutils,windows; function SetP...

关键词： nbsp NewState token PRIVILEGES ExitWindowsEx PreviousState delphi dwRetLen PrivilegeName Attributes

来至 footsetp// xp+sp2下测试成功 program Portscan;{$APPTYPE CONSOLE} usessysutils,windows; function SetPrivilege(PrivilegeName: String; Enable: Boolean): Boolean;var NewState, PreviousState: TTokenPrivileges; token: THandle; dwRetLen: DWord;begin Result := False; OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, token); NewState.PrivilegeCount := 1; if LookupPrivilegeValue(nil, PChar(PrivilegeName),NewState.Privileges[0].LUID) then begin if Enable then NewState.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED else NewState.Privileges[0].Attributes := 0; dwRetLen := 0; Result := AdjustTokenPrivileges(token,False, NewState, SizeOf(PreviousState),PreviousState, dwRetLen); end; CloseHandle(token);end; beginSetPrivilege('SeShutdownPrivilege', True);Sleep(6000); // 这里延迟是为了测试之用,运行后来得及锁定计算机ExitWindowsEx($0c,0); // 关机// 注销// ExitWindowsEx($4,0);end . 试了很多很多关机软件都不能在计算机锁定的状态下执行关机操作,最近看到一款 "关机酷XP"的就能在这样的环境下执行关键/注销的操作,于是简单的分析了下,发现作者只是用ExitWindowsEx 这个API就实现了,本以为很复杂啊..-_-|. 昨天晚上看了点delphi,手痒,试着用delphi写了下,还真能用..只是不知道delphi如何实现C那样接受命令行参数呢?用GetCommandline的话,在delphi操作字符串还真不熟练,故此就写成这样..

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除