ShutDown Problem

[CReber]

1: ExitWindowsEx(EWX_SHUTDOWN, 0);
2: ExitWindowsEx(EWX_REBOOT, 0);

Hab folgendes Problem... EWX_SHUTDOWN macht gar nix (genauso wie reboot) und FORCE meldet das system ab anstatt es runterzufahren ..

system:

winXP SP1 2002

kann mir da jemand helfen?

[Luckie]

Hast du dir auch vorher die Rechte geholt? Kuck dir dazu mal den entsprechenden Beitrag in der Code-Lib an.

[CReber]

EWX_FORCE meldet aber immernoch nur ab ?! :( FORCE ist doch herunterfahren mit dem zusatz das speicherungsabfragen ignoriert werden oder?

[Der-DeeJay]

Hi

Ich glaube du hast vergessen die Funktion zu benutzen

Delphi-Quellcode:

function ExWindows(const AQuestion: string; flag: word): Boolean;
var 
  vi     : TOSVersionInfo;
  hToken : THandle;
  tp     : TTokenPrivileges;
  h      : DWord;
begin
  result := false;
  if Aquestion='' then
  vi.dwOSVersionInfoSize:=SizeOf(vi);
  GetVersionEx(vi);
  if vi.dwPlatformId = VER_PLATFORM_WIN32_NT then 
  begin 
    // Windows NT
    // Achtung bei Delphi 2 muß @hToken stehen ...
    OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES,hToken);
    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(flag,0);
  end
  else
  begin
    Result := ExitWindowsEx(flag,0);
  end;
end;

und dann so benutzen:

Delphi-Quellcode:

ExWindows('', ewx_poweroff);  //Beenden
ExWindows('', ewx_reboot );  //Neustart
ExWindows('', ewx_logoff );  //Logoff

bei mir hats so funktioniert
hoffe das es bei dir nun auch was wird ;]

[Schwedenbitter]

Mal 'ne ganz blöde Frage:

Delphi-Quellcode:

If ...
.
.
.
    result := ExitWindowsEx(flag,0); 
  end 
  else // Windows 95 
  begin 
    Result := ExitWindowsEx(flag,0); 
  end; 
end;

Kann man da "result := ExitWindowsEx(flag,0);" nicht auch außerhalb der If-Abfrage machen? Schließlich unterscheidet sich der Code insofern überhaupt nicht.

[NicoDE]

Zitat:

Zitat von hOnkibOnk

EWX_FORCE meldet aber immernoch nur ab ?!

Weil es ein zusätzliches Flag ist.
EWX_SHUTDOWN or EWX_FORCE // or = das Ergebnis enthält die Bits beiden Operanden
(Zu gut Deutsch 'Erzwinge das Herunterfahren'. EWX_REBOOT or EWX_FORCE bedeutet dann logischerweise 'Erzwinge einen Neustart')

[MathiasSimmack]

Zitat:

Zitat von Schwedenbitter

Mal 'ne ganz blöde Frage: [...] Kann man da "result := ExitWindowsEx(flag,0);" nicht auch außerhalb der If-Abfrage machen? Schließlich unterscheidet sich der Code insofern überhaupt nicht.

Klar, kann man. ;) Ich benutze bspw. eine komplett separate Funktion zum Holen oder Abschalten der Rechte. Die sieht im Prinzip so aus wie die Vorlage von Der-DeeJay, nur der Code zum Herunterfahren fehlt. Es wäre ja möglich, dass man auch für andere Zwecke mal bestimmte Rechte benötigt.

[StefanDP]

wenn es nur unter windows xp funktionieren soll/kann kannst du folgendes machen:

Delphi-Quellcode:

ShellExecute(Handle, 'open', 'shutdown.exe', '-r -t 10 -c "Der Computer wird gleich neugestartet!" -f', nil, SW_SHOW);

mfg
stefan

[MathiasSimmack]

Bei allem Respekt, @StefanDP, aber es ist doch besser, den dafür vorgesehenen Befehl zu verwenden. Der funktioniert unter allen Windows-Versionen, nicht nur unter XP. Und das Abschreiben der Rechte-Funktion ist sicher auch nicht das Problem. ;)

[TeronG]

Also ExWindows() klappt ja soweit ganz gut ... nur seit "neuestem" giebt es ja die möglichkeit updates vor dem PowerOff zu installieren.
(Start -> Herunterfahren -> Updates installieren und herunterfahren)

Wie kann ich das nun mit ExWindows() machen?
Wenn ich nur sporadisch die Updates installiere bekomm ich noch mal ärger ^^

[TeronG]

*push* waren das nun 24h oder 24 Tage pause bis zum pushen :gruebel: :mrgreen:

[danku]

habs genauso wie im #4 gemacht aber keine wirkung :?

nach einem countdown wird ein button automatisch geklickt mit folgendem code:

Delphi-Quellcode:

//case mag ich nicht so ;)
if lboff.itemindex=0
  then ExWindows('', ewx_poweroff)       //Beenden
    else if lboff.itemindex=1
     then ExWindows('', ewx_reboot )     //Neustart
      else if lboff.itemindex=2
       then ExWindows('', ewx_logoff );  //Logoff
end;

was ist daran falsch?

[Luckie]

Zitat:

Zitat von danku

case mag ich nicht so ;)

Solltest du aber:

Delphi-Quellcode:

case lboff.itemindex of
0: ExWindows('', ewx_poweroff);
1: ExWindows('', ewx_reboot );
2: ExWindows('', ewx_logoff );
end;

Was kann man daran bitte jetzt nicht mögen?

BTW debugg das mal und guck, ob er überhaupt in den entsprechenden Zweig (if/case) reinspringt.

[danku]

ich weiß so hatte ich es auch schon aber ist nicht eine if-anweisung schöner? ;)
verschachtelt ohne ende. case geht schon..

[pacman1986]

Zitat:

Zitat von danku

ich weiß so hatte ich es auch schon aber ist nicht eine if-anweisung schöner? ;)
verschachtelt ohne ende. case geht schon..

das nenne ich mal hardcoden :P

[danku]

Back to the topic please.
warum funzt die case nicht.
wäre eine ShellExecute besser?

[ManuMF]

Hallo,

weil du in Zeile 533 ein "end" vergessen hast. :cyclops:

Nein, kleiner Scherz. Schreib doch mal, was daran nicht funktioniert, sonst ist dir nicht zu helfen ;-)

Gruß,
ManuMF

[danku]

hab mir selber geholfen ;)
es gab ein problem mit der tlistbox.
irgendwie verstand der nicht .itemindex.
die gleiche methode bei einer tcombobox funzt einwandfrei.

[Luckie]

Zitat:

Zitat von danku

ich weiß so hatte ich es auch schon aber ist nicht eine if-anweisung schöner? ;)
verschachtelt ohne ende. case geht schon..

Na wenn dir eine ohne Ende verschachtelte if-Abfgare leiber ist, wo man nach zwei Minuten scho nnicht mehr durchblickt und schon gar nicht nur vom draufgucken, dann bitte.