Использование функции ExitWindowsEx.

[Yurazav]

В программировании я новичок, Delphi изучаю самостоятельно, поэтому многого не знаю. Прошу отнестись к моим вопросам снисходительно.
Моя дочь любит засыпать под музыку, подыматься ночью и выключать компьютер не охота, ругаться с ней я уже устал. Поэтому решил написать небольшую программку, которая выключала бы компьютер в заданное время. Ничего другого, кроме функции ExitWindowsEx не нашел, решил использовать эту функцию, но появились проблемы:
Если использовать флаг EWX_FORCE (должен выключить без сохранения) - не выключает, а перезагружает компьютер со сменой пользователя;
Если использовать флаг EWX_SHUTDOWN or EWX_POWEROFF(+ еще код с получением привилегий) – работает нормально, если нет запущенной программы. Если есть запущенная программа, которая требует сохранения, то появляется диалоговое окно, требующее подтверждения сохранения и естественно никакого автоматического выключения не происходит.
Поискал в литературе и в Internet – проблема получается в получении привилегий(у нас Windows XP SP2), но нигде не могу найти хорошего описания этих процессов. Подскажите, пожалуйста, книгу или справочник где хорошо описана работа получения этих привилегий и что это за привилегии? Спасибо.

[Трофимов Александр]

Вышеописанные примеры действительны только для w9x/Me.
Дело в том, что, чтобы выполнить функциию в NT ОС, нужно получить права на выполнение этой функции. Сделать это можно через AdjustTokenPriviligies.
С помощью нижеприведённой функции можно получить любую привелегию, в т.ч. и привеленгию SeShutdownPrivilege, которая нужна для разрешения функции ExitWindows(Ex)

Function SetPrivilege(aPrivilegeName: String; aEnabled: Boolean ): Boolean;
Var TPPrev,
TP: TTokenPrivileges;
Token: THandle;
dwRetLen: DWord;
Begin
Result:=False;
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, @Token );
TP.PrivilegeCount:=1;
IF LookupPrivilegeValue(nil,PChar(aPrivilegeName),TP.Privilege s[0].LUID )) then
Begin
IF aEnabled then TP.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED
else TP.Privileges[0].Attributes:=0;
dwRetLen:= 0;
Result:=AdjustTokenPrivileges(Token ,False,TP,SizeOf(TPPrev),TPPrev,dwR etLen);
End;
CloseHandle(Token);
End;

Пример использования для среды NT:
SetPrivilege('SeShutdownPrivilege',True);
ExitWindowsEx(EWX_SHUTDOWN,0);

Автор: Song
Взято из http://forum.sources.ru

[Yurazav]

Спасибо за ответ, попробую разобраться с этим кодом. Конечно хотелось бы почитать литературу. О результатах сообщу.

[Yurazav]

Разобрался с получением привилегий, в основном. Но проблему это не сняло. Код, который я использую - рабочий, просто флаг EWX_FORCE один не ставится, а ставится EWX_SHUTDOWN or EWX_FORCE и все работает, но без сохранения. А хотелось чтобы программа сохраняла открытый документ, я думал, что это сделает функция ExitWidowsEx (с флагом EWX_SHUTDOWN or EWX_POWEROFF), но, наверное, в ней нет такой возможности.
Чтобы программно нажать кнопку ОК в диалоговом окне и этим сохранить открытый документ решил использовать функции FindWindowEx и SendMessage или SendDlgItemMessage (до конца еще не разобрался), при этом, наверное, придется создавать поток. Подскажите, в верном ли я направлении работаю?

[makshimik]

Чтобы послать сообщение кнопке Ок Вам нужно использовать EnumChildWindows. Ниже пример ее использования. В качестве одного из параметров ей передается указатель на функцию, которая будет вызываться каждый раз, когда найдено дочернее окно. Данный пример находит все надписи на всех элементах управления в окне, найденном функцией FindWindow.

program Project1;
{$APPTYPE CONSOLE}
uses
Windows,Messages,SysUtils;

function GetChilds(Wnd:HWND; P:Pointer):BOOL; stdcall;
var
Text:array[0..256] of Char;
Header:string;
begin
SendMessage(Wnd,WM_GETTEXT,word(256 ),longint(@Text));
Header:=PChar(@Text);
writeln(Header,' ',Wnd);
Result:=true;
end;

var
h:hwnd=0;
begin
h:=FindWindow(nil,'сюда вписать заголовок искомого окна');
if h<>0 then
EnumChildWindows(h,@GetChilds,0)
else writeln('Your window not found');
readln;
end.

[Arigato]

makshimik
Вы серьёзно думаете, что Yurazav в течение 3-х лет всё ещё не решил свою проблему и продолжает над ней биться?

[Vikenty]

функция NtShutdownSystem из ntdll многовенно выключает компьютер, сохраняя только системные данные

[makshimik]

Сообщение от Arigato

makshimik
Вы серьёзно думаете, что Yurazav в течение 3-х лет всё ещё не решил свою проблему и продолжает над ней биться?

Но ведь вполне возможно, что кто-нибудь еще будет искать что-либо подобное. Так что не столь важно понадобится ответ автору темы или нет - он может понадобиться кому-то еще.

[DeKot]

программку, которая выключала бы компьютер в заданное время.

Может для ТС уже не актуально, но кому то пригодится.
Вот программное выключение компьютера (корректное).
Определяете системное время и в нужное время запускаете процедуру (в принципе, процедуру можно "прикрутить" к любому событию) :

procedure off_PC;
var
  hToken: THandle;
  tkp: TTokenPrivileges;
  ReturnLength: Cardinal;
begin
  if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or
    TOKEN_QUERY, hToken) then
  begin
    LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid);
    tkp.PrivilegeCount := 1;
    tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
    if AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength) then
      ExitWindowsEx(EWX_ShutDown,0);// Выключение
  end;
end;

[Rapid]

Зачем изобретать велосипед? Простая выключалка уже не работает? Скачать с оффсайта и программируй её как хочешь. Можно по событию (когда фильм кончится) или на время определеное. Зачем изучать для этого WIN API?
Ну да, чуть не забыл. Это ж для самообразования.