Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.12;
Скачать: CL | DM;

Вниз

Как в WinXP выключить компьютер   Найти похожие ветки 

 
DenKop ©   (2002-08-29 16:17) [0]

Ни ExitWindows, ни ExitWindowsEx не работают. Вычитал в хелпе что нужно изменить уровень привелегий, но это не помогло.


 
Квазиравномернонепрерывный   (2002-08-29 16:43) [1]

В debug API есть ф-я, которая показывает диаложек "Перезагрузить комп сейчас?..." и если user32 ответил Да, перегружает виндовоз.


 
Беня Ладен   (2002-09-02 01:04) [2]

Start->Turn off Computer->Turn off !!! :)))


 
melifaro ©   (2002-09-02 01:28) [3]

в XP как в NT - сначало надо дать приложению привилегию на выключение.

Пример:

Function GrantShutdownAccess: boolean;
var
hToken: THandle;
lpVersionInformation: TOSVersionInfo;
tkp: TTokenPrivileges;
RetLen: DWORD;
PreviousState: TTokenPrivileges;
begin
lpVersionInformation.dwOSVersionInfoSize := SizeOf(lpVersionInformation);
Result := GetVersionEx(lpVersionInformation);
if (lpVersionInformation.dwPlatformId = VER_PLATFORM_WIN32_NT) then
begin
if not OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then
begin
Result := False;
exit;
end;
Result := LookupPrivilegeValue( Nil, "SeShutdownPrivilege",
tkp.Privileges[0].Luid);
if not Result then Exit;
PreviousState := tkp;
tkp.PrivilegeCount := 1;
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
if not(AdjustTokenPrivileges(hToken, FALSE, tkp, SizeOf(PreviousState), PreviousState, RetLen)) then
begin
Result := False;
Exit;
end;
end;
Result := True;
end;
А потом уже можно включать компьютер -
if GrantShutdownAccess then ExitWindowsEx (EWX_FORCE and EWX_SHUTDOWN,0);




Страницы: 1 вся ветка

Текущий архив: 2002.09.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.015 c
1-35750
AFrolov
2002-08-30 14:59
2002.09.12
Как закрыть приложение сервера автоматизации


6-35837
Landgraph
2002-07-08 10:26
2002.09.12
Socket


1-35775
ev
2002-08-30 19:12
2002.09.12
ламерский вопрос по TSrtingGrid...


3-35592
NIKI
2002-08-19 16:20
2002.09.12
SQL


4-35953
Романов А.
2002-07-18 09:20
2002.09.12
Windows XP При смене имени учетной записи ,появляеться проблема !