Перезагрузка компа, ждущий и спящий режим

[Yar]

Как мне перезагрузить комп? Как перевести в ждущий или спящий режим?

[SERG1980]

Ф-ия ExitWindowsEx(uFlags:UINT; dwReserved:DWORD):BOOL; stdcall;
параметр dwReserved не используется
а паарметр uFlags может иметь следующие значения:

EWX_FORCE форсировать выключение компа
EWX_LOGOFF сменить пользователя
EWX_POWEROFF выключить комп
EWX_REBOOT перезагрузить систему
EWX_SHUTDOWN выключить комп но не выкл питание

пример перезагрузки
ExitWindowsEx(EWX_REBOOT,0);

[Net]

Для Windows NT нужно для этого установить требуемые привилегии, потом выполнять функцию:

function NTSetPrivilege(const Privilege:string):Boolean;
var Token:THandle;
	TokenPriv, PrevTokenPriv:TOKEN_PRIVILEGES;
	ReturnLength:Cardinal;
begin
	Result:=False;
	if Win32Platform <> VER_PLATFORM_WIN32_NT then Exit;

	if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES + TOKEN_QUERY, Token) then
	try
		if LookupPrivilegeValue(nil, PChar(Privilege), TokenPriv.Privileges[0].Luid) then
		begin
			TokenPriv.PrivilegeCount:=1;
			TokenPriv.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
			ReturnLength:=0;
			PrevTokenPriv:=TokenPriv;
			AdjustTokenPrivileges(Token, False, TokenPriv, SizeOf(PrevTokenPriv), PrevTokenPriv, ReturnLength);
		end;
	finally
		CloseHandle(Token);
	end;
	Result:=True;
end;

NTSetPrivilege('SEShutdownPrivilege');
ExitWindowsEx({нужный параметр - EWX_REBOOT и т.д.}, 0);