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
Antwort Antwort
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
Zwixx

Registriert seit: 2. Nov 2006
37 Beiträge
 
Delphi 10.3 Rio
 
#2

Re: Shutdown wenn kein Benutzer angemeldet ist

  Alt 24. Mär 2009, 13:27
Eine normale Anwendung wird beim Logoff beendet. Das einzige was du machen kannst um ein Programm zu schreiben das auch ein logoff übersteht, es als Service zu machen. Dieser wird beim Windowsstart auch gestartet und erst dann wenn ein System wieder heruntergefahren wird beendet
  Mit Zitat antworten Zitat
T.E.

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

Re: Shutdown wenn kein Benutzer angemeldet ist

  Alt 24. Mär 2009, 18:08
gut vielleicht sollte ich noch dazu sagen, das die anwendung ein Bildschirmschoner ist und auch als Systemschoner (wenn kein User angemeldet ist gestartet und ausgeführt wird) eingestellt ist...
Gruß Torben
  Mit Zitat antworten Zitat
Zwixx

Registriert seit: 2. Nov 2006
37 Beiträge
 
Delphi 10.3 Rio
 
#4

Re: Shutdown wenn kein Benutzer angemeldet ist

  Alt 25. Mär 2009, 09:17
Dann kann es sehr gut sein (ist nur eine Vermutung) das der anonyme Benutzer der das Login startet nicht die Berechtigung hat das System herunterzufahren.
  Mit Zitat antworten Zitat
T.E.

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

Re: Shutdown wenn kein Benutzer angemeldet ist

  Alt 25. Mär 2009, 11:07
hm... und wie kann ich diesem Benutzer das Recht erteilen den PC mit diesem Screensaver herunterzufahren?
Gruß Torben
  Mit Zitat antworten Zitat
quendolineDD

Registriert seit: 19. Apr 2007
Ort: Dresden
781 Beiträge
 
Turbo Delphi für Win32
 
#6

Re: Shutdown wenn kein Benutzer angemeldet ist

  Alt 25. Mär 2009, 11:23
Wenn ein Nutzer nicht die benötigten Privilegien hat, kannst du auch nicht in seinem Kontext solche Sachen erledigen. Deswegen ja der Rat, es als Service laufen zu lassen.
Lars S.
Wer nicht mit der Zeit geht, geht mit der Zeit.
  Mit Zitat antworten Zitat
Antwort Antwort


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 16:12 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz