【控件功能】我来做练习-第55课-注销-重启-关机

注销-重启-关机

function GetPrivilege(PrivilegeType: PChar): longbool;stdcall;//这个是修改权限的函数
var
hToken : THandle;
tkp : TTokenPrivileges;
a: DWORD;
ll:longbool;
begin
OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken);
tkp.PrivilegeCount := 1;
ll:=LookupPrivilegeValue( nil,PrivilegeType , tkp.Privileges[ 0 ].Luid );
if PrivilegeType=‘SeDebugPrivilege’ then
begin
ll:=LookupPrivilegeValue( nil,PrivilegeType , tkp.Privileges[ 0 ].Luid );
tkp.Privileges[ 0 ].Attributes := SE_PRIVILEGE_ENABLED;
end;
a:=0;
AdjustTokenPrivileges( hToken, False, tkp, SizeOf( TTokenPrivileges ), nil, a);
CloseHandle(hToken);
end;

procedure TForm1.Button1Click(Sender: TObject);//注销
begin
ExitWindowsEx(EWX_LOGOFF,0);
end;

procedure TForm1.Button2Click(Sender: TObject);//重启