wlamiro

Der Bildschirmschoner ist in Delphi geschrieben und regelt den shutdown selbst.

Wie gesagt, wenn ein Benutzer angemeldet ist und diesen Bildschirmschoner verwendet, dann wird der Rechner auch sauber automatisch zu vorgegebenen Uhrzeit heruntergefahren.

unit shutdown;

interface

function shut(system, message: string; force, reboot: boolean; duration: integer): integer;

function ExitWindows(flag:word): Boolean;

implementation

uses windows,dialogs;

function ExitWindows(flag:word): Boolean;

var vi: TOSVersionInfo;

begin

result := false;

vi.dwOSVersionInfoSize:=SizeOf(vi);

GetVersionEx(vi);

if vi.dwPlatformId = VER_PLATFORM_WIN32_NT then begin // Windows NT

shut('WinXP', 'Rechner wird heruntergefahren!', true, false, 3);

end else begin // Windows 95

result := ExitWindowsEx(flag,0);

end;

end;

// http://scifi.pages.at/bdsx/vb6/vb6_reboot.htm

function shut(system, message: string; force, reboot: boolean; duration: integer): integer;

var

otoken, hToken: THandle;

tp: TTokenPrivileges;

h: Dword;

begin

result := 0;

OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, hToken);

otoken := 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);

InitiateSystemShutdown(NIL, pchar(message), duration, force, reboot);

result := getlasterror;

tp.privilegecount := 1;

tp.privileges[0].Attributes := SE_PRIVILEGE_ENABLED;

h := 0;

AdjustTokenPrivileges(oToken, False, tp, 0, PTokenPrivileges(NIL)^, h);

CloseHandle(hToken);

end;

end.

Hallo Leute,

ich habe für die Rechner in unseren PC-Räumen einen Bildschirmschoner geschrieben, der die Rechner ab einer bestimmten Uhrzeit herunterfährt.

Unter Windows NT 4.0 läuft es wie geschmiert. Aber unter XP reagiert der Bildschirmschoner zwar, aber der Rechner wird nicht heruntergefahren.

Wenn ich angemeldet bin und ich wähle diesen Bildschirmschoner aus, dann funktioniert es.

Ich habe schon den Benutzern Jeder und System die Rechte gegeben, den Rechner herunterzufahren, hat aber nichts genützt.

Wer kann mir helfen?

Vielen Dank im voraus.

Wlamiro