Benutzer abmelden?

[XHelp]

Delphi-Quellcode:

procedure TfrmShutDown.SpeedButton1Click(Sender: TObject);
var
  hToken: THandle;
  tkp: _TOKEN_PRIVILEGES;
  returnLength: Cardinal;
begin
  if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then
  begin
    LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid);
    tkp.PrivilegeCount := 1;
    tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
    if AdjustTokenPrivileges(hToken, false, tkp, 0, nil, returnLength) then
    begin
      case (Sender as TComponent).Tag of
        0: ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF, 0);
        1: ExitWindowsEx(EWX_REBOOT, 0);
        2: ExitWindowsEx(EWX_LOGOFF, 0);
        3: ExitWindowsEx(EWX_FORCE, 0);
      end;
    end;
  end;
end;

Hilft das hier weiter?