System Delphi

Title: shutdown / reboot / logoff Windows 9x/NT/Me/2000/XP?
{1.}
functionMyExitWindows(RebootParam:Longword):Boolean;
var
TTokenHd:THandle;
TTokenPvg:TTokenPrivileges;
cbtpPrevious:DWORD;
rTTokenPvg:TTokenPrivileges;
pcbtpPreviousRequired:DWORD;
tpResult:Boolean;
const
SE_SHUTDOWN_NAME='SeShutdownPrivilege';
begin
ifWin32Platform=VER_PLATFORM_WIN32_NTthen
begin
tpResult:=OpenProcessToken(GetCurrentProcess(),
TOKEN_ADJUST_PRIVILEGESorTOKEN_QUERY,
TTokenHd);
iftpResultthen
begin
tpResult:=LookupPrivilegeValue(nil,
SE_SHUTDOWN_NAME,
TTokenPvg.Privileges[0].Luid);
TTokenPvg.PrivilegeCount:=1;
TTokenPvg.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
cbtpPrevious:=SizeOf(rTTokenPvg);
pcbtpPreviousRequired:=0;
iftpResultthen
Windows.AdjustTokenPrivileges(TTokenHd,
False,
TTokenPvg,
cbtpPrevious,
rTTokenPvg,
pcbtpPreviousRequired);
end;
end;
Result:=ExitWindowsEx(RebootParam,0);
end;
//ExampletoshutdownWindows:
procedureTForm1.Button1Click(Sender:TObject);
begin
MyExitWindows(EWX_POWEROFForEWX_FORCE);
end;
//ExampletorebootWindows:
procedureTForm1.Button1Click(Sender:TObject);
begin
MyExitWindows(EWX_REBOOTorEWX_FORCE);
end;
//ParametersforMyExitWindows()
{************************************************************************}
{2.ConsoleShutdownDemo}
programShutdown;
{$APPTYPECONSOLE}
uses
SysUtils,
Windows;
//ShutdownProgram
//(c)2000NeuralAbyssSoftware
//www.neuralabyss.com
var
logoff:Boolean=False;
reboot:Boolean=False;
warn:Boolean=False;
downQuick:Boolean=False;
cancelShutdown:Boolean=False;
powerOff:Boolean=False;
timeDelay:Integer=0;
functionHasParam(Opt:Char):Boolean;
var
x:Integer;
begin
Result:=False;
forx:=1toParamCountdo
if(ParamStr(x)='-'+opt)or(ParamStr(x)='/'+opt)thenResult:=True;
end;
functionGetErrorstring:string;
var
lz:Cardinal;
err:array[0..512]ofChar;
begin
lz:=GetLastError;
FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM,nil,lz,0,@err,512,nil);
Result:=string(err);
end;
procedureDoShutdown;
var
rl,flgs:Cardinal;
hToken:Cardinal;
tkp:TOKEN_PRIVILEGES;
begin
flgs:=0;
ifdownQuickthenflgs:=flgsorEWX_FORCE;
ifnotrebootthenflgs:=flgsorEWX_SHUTDOWN;
ifrebootthenflgs:=flgsorEWX_REBOOT;
ifpoweroffand(notreboot)thenflgs:=flgsorEWX_POWEROFF;
iflogoffthenflgs:=(flgsand(not(EWX_REBOOTorEWX_SHUTDOWNorEWX_POWEROFF)))or
EWX_LOGOFF;
ifWin32Platform=VER_PLATFORM_WIN32_NTthen
begin
ifnotOpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGESorTOKEN_QUERY,
hToken)then
Writeln('Cannotopenprocesstoken.['+GetErrorstring+']')
else
begin
ifLookupPrivilegeValue(nil,'SeShutdownPrivilege',tkp.Privileges[0].Luid)then
begin
tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
tkp.PrivilegeCount:=1;
AdjustTokenPrivileges(hToken,False,tkp,0,nil,rl);
ifGetLastErrorERROR_SUCCESSthen
Writeln('Erroradjustingprocessprivileges.');
end
else
Writeln('Cannotfindprivilegevalue.['+GetErrorstring+']');
end;
{ifCancelShutdownthen
ifAbortSystemShutdown(nil)=Falsethen
Writeln(\'Cannotabort.[\'+GetErrorstring+\']\')
else
Writeln(\'Cancelled.\')
else
begin
ifInitiateSystemShutdown(nil,nil,timeDelay,downQuick,Reboot)=Falsethen
Writeln(\'Cannotgodown.[\'+GetErrorstring+\']\')
else
Writeln(\'Shuttingdown!\');
end;
}
end;
//elsebegin
ExitWindowsEx(flgs,0);
//end;
end;
begin
Writeln('Shutdownv0.3forWin32(similartotheLinuxversion)');
Writeln('(c)2000NeuralAbyssSoftware.AllRightsReserved.');
ifHasParam('?')or(ParamCount=0)then
begin
Writeln('Usage:shutdown[-akrhfnc][-tsecs]');
Writeln('-k:don''treallyshutdown,onlywarn.');
Writeln('-r:rebootaftershutdown.');
Writeln('-h:haltaftershutdown.');
Writeln('-p:poweroffaftershutdown');
Writeln('-l:logoffonly');
Writeln('-n:killappsthatdon''twanttodie.');
Writeln('-c:cancelarunningshutdown.');
end
else
begin
ifHasParam('k')thenwarn:=True;
ifHasParam('r')thenreboot:=True;
ifHasParam('h')andrebootthen
begin
Writeln('Error:Cannotspecify-rand-hparameterstogether!');
Exit;
end;
ifHasParam('h')thenreboot:=False;
ifHasParam('n')thendownQuick:=True;
ifHasParam('c')thencancelShutdown:=True;
ifHasParam('p')thenpowerOff:=True;
ifHasParam('l')thenlogoff:=True;
DoShutdown;
end;
end.
//ParametersforMyExitWindows()
EWX_LOGOFF

Shuts down all processes running in the security context of the process that called the
ExitWindowsEx function. Then it logs the user off.
Alle Prozesse des Benutzers werden beendet, danach wird der Benutzer abgemeldet.
EWX_POWEROFF

Shuts down the system and turns off the power.
The system must support the power-off feature.
Windows NT/2000/XP:
The calling process must have the SE_SHUTDOWN_NAME privilege.
Fhrt Windows herunter und setzt den Computer in den StandBy-Modus,
sofern von der Hardware untersttzt.
EWX_REBOOT

Shuts down the system and then restarts the system.
Windows NT/2000/XP: The calling process must have the SE_SHUTDOWN_NAME privilege.
Fhrt Windows herunter und startet es neu.

EWX_SHUTDOWN

Shuts down the system to a point at which it is safe to turn off the power.
All file buffers have been flushed to disk, and all running processes have stopped.
If the system supports the power-off feature, the power is also turned off.
Windows NT/2000/XP: The calling process must have the SE_SHUTDOWN_NAME privilege.
Fhrt Windows herunter.
EWX_FORCE

Forces processes to terminate. When this flag is set,
the system does not send the WM_QUERYENDSESSION and WM_ENDSESSION messages.
This can cause the applications to lose data.
Therefore, you should only use this flag in an emergency.
Die aktiven Prozesse werden zwangsweise und ohne Rckfrage beendet.

EWX_FORCEIFHUNG

Windows 2000/XP: Forces processes to terminate if they do not respond to the
WM_QUERYENDSESSION or WM_ENDSESSION message. This flag is ignored if EWX_FORCE is used.
Windows 2000/XP: Die aktiven Prozesse werden aufgefordert, sich selbst zu beenden und
mssen dies besttigen. Reagieren sie nicht, werden sie zwangsweise beendet.