AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi Shutdown wenn kein Benutzer angemeldet ist
Thema durchsuchen
Ansicht
Themen-Optionen

Shutdown wenn kein Benutzer angemeldet ist

Ein Thema von T.E. · begonnen am 24. Mär 2009 · letzter Beitrag vom 25. Mär 2009
 
T.E.

Registriert seit: 27. Mai 2007
Ort: Hamburg
284 Beiträge
 
Delphi XE2 Enterprise
 
#1

Shutdown wenn kein Benutzer angemeldet ist

  Alt 24. Mär 2009, 13:12
Moin moin,

ich habe ein kleines Problem:
und zwar habe ich eine Anwendung, die den Computer herunterfahren soll, auch wenn kein Benutzer angemeldet ist oder der Computer gerade gesperrt ist...
den Shutdown realisiere ich mit der folgenden Funktion:
Delphi-Quellcode:
function ExWindows(const AFlag: Word): Boolean;
var
  vi : TOSVersionInfo;
  hToken : THandle;
  tp : TTokenPrivileges;
  h : DWord;
begin
  result:= false;

  vi.dwOSVersionInfoSize:=SizeOf(vi);

  if GetVersionEx(vi) then
  begin
    if vi.dwPlatformId = VER_PLATFORM_WIN32_NT then
    begin
      // Windows NT
      // Achtung bei Delphi 2 muß @hToken stehen ...
      if OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES,hToken) then
      begin
        LookupPrivilegeValue(nil,'SeShutdownPrivilege',tp.Privileges[0].Luid);
        tp.PrivilegeCount := 1;
        tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
        h := 0;
        AdjustTokenPrivileges(hToken,False,tp,0,PTokenPrivileges(nil)^, h);
        CloseHandle(hToken);
        result := ExitWindowsEx(Aflag, 0);
      end;
    end
    else
    begin // Windows 95
      Result := ExitWindowsEx(Aflag, 0);
    end;
  end;
end;
und aufrufen tue ich sie folgendermaßen:
ExWindows(EWX_Shutdown OR EWX_FORCE OR EWX_FORCEIFHUNG); De Shutdown funktioniert auch einwandfrei, wenn ein Benutzer angemeldet ist... und auch aktiv ist, allerdings nicht wenn keiner angemeldet ist.

ABER wie bekomme ich das so hin, das der Computer auch bei nicht angemeldetem Benutzer oder bei gesperrtem PC heruntergefahren wird?
Wäre über konstruktive Vorschläge /Hilfe dankbar...

EDIT: ich habe trotz instensiven googelns keine funktionierende Lösung gefunden...
Gruß Torben
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:40 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz