| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как выключить или перезагрузить WinXp [D6, WinXP]
Orcy © (2003-02-22 01:57:00)Как выключить или перезагрузить WinXp
ExitWindowsEx(EWX_SHUTDOWN,1) не работает
Acidy (2003-02-25 08:59:00) [1]это уже избитая сто раз тема.......
народ .......... ну для чего существует фак?
Orcy (2003-02-24 23:55:00) [2]Спасибо все работает как часы
Ich Hasse (2003-02-22 17:39:00) [3]именно так
Evgeny_R (2003-02-22 17:38:00) [4]
usesWindows, messages;
procedureRebootSystem;
var
handle_: THandle;
n: DWORD;
luid: TLargeInteger;
priv: TOKEN_PRIVILEGES;
ver: TOSVERSIONINFO;
begin
ver.dwOSVersionInfoSize:=Sizeof(ver);
GetVersionEx(ver);
ifver.dwPlatformId=VER_PLATFORM_WIN32_NT then begin
ifOpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, handle_) then ifLookupPrivilegeValue( nil, "SeShutdownPrivilege", luid) then
beginpriv.PrivilegeCount := 1;
priv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
priv.Privileges[0].Luid := luid;
AdjustTokenPrivileges(handle_, false, priv, 0, nil, n); end
else
writeln("Ошибка")
elsewriteln("Ошибка "); end elsewriteln("Ошибка "); if notExitWindowsEx(EWX_POWEROFF,1) thenwriteln("Ошибка"); end;
begin
RebootSystem;
end.
Acidy (2003-02-22 10:33:00) [5]В факе есть как машину под НТ выключить...
Song (2003-02-22 04:00:00) [6]AdjustTokenPriviligies()
| |
