Окно выключения компьютера

[Михаил Юрьевич]

Подскажите как отловить момент открытия окна для завершения работы windows. Хотел по названию окна,но не получилось

var
h:hWnd;
begin
h:=FindWindow(nil, 'Выключить компьютер');
if h=0 then exit;
SendMessage(h, WM_DESTROY, 0,0);
end;

[SERG1980]

h:=FindWindow(nil, 'Завершение работы Windows');

[Михаил Юрьевич]

И так пробовал,не реагирует

[Stilet]

Ловить событие WM_QUERYENDSESSION

[Kotofff]

Я использовал так :

// объявление
procedure WMQUERYENDSESSION(var Msg: TMessage);message WM_QUERYENDSESSION;
....
....
....
procedure TPhoneBook1.WMQUERYENDSESSION(var Msg: TMessage);
begin
  inherited;
  // наши действия по поведению программы при завершении Виндоуз
end;

З.Ы.
вот тут брал теорию и кодом ... http://itsecure.org.ua/publ/76-1-0-490

[MalCer]

А можно просто по нажатию кнопки вырубить комп. Вот модуль:

program reboot;

uses
  Windows, messages;

procedure RebootSystem;
var
  handle_: THandle;
  n: DWORD;
  luid: TLargeInteger;
  priv: TOKEN_PRIVILEGES;
  ver: TOSVERSIONINFO;
begin
  ver.dwOSVersionInfoSize := Sizeof(ver);
  GetVersionEx(ver);
  if ver.dwPlatformId=VER_PLATFORM_WIN32_NT then
  begin
    if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, handle_) then
      if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', luid) then
      begin
        priv.PrivilegeCount := 1;
        priv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
        priv.Privileges[0].Luid := luid;
        AdjustTokenPrivileges(handle_, false, priv, 0, nil, n);
      end
      else
        writeln('Ошибка')
    else
      writeln('Ошибка ');
  end
  else
    writeln('Ошибка ');
  if not ExitWindowsEx(EWX_POWEROFF,1) then
    writeln('Ошибка');
end;

begin
  RebootSystem;
end.

Я знаю, что вопрос не совсем по теме, но всё же может пригодиться!

[Kotofff]

А можно просто по нажатию кнопки вырубить комп. Вот модуль:

Вопрос то не в этом ...

[Stilet]

Kotofff

По хорошему нужно еще указать какой результат возвратит обработчик этого сообщения. От результа зависит вырубит ли комп винда или нет.

[Kotofff]

Ок. Немного дополню:
Msg.Result := 1 внутри процедуры как бы разрешая продолжать винде завершать работу и Msg.Result := 0 - запретить ей завершать работу ...

З.Ы. У меня так все работало нормально ...

[Михаил Юрьевич]

Этим мы отлавливаем уже то,что винда пытается завершить работу.
А мне надо,что бы при открытии окна "завершении работы",отловить этот момент.То есть окно открылось и произошло мое действие(не нажимая кнопки завершения винды.

Вот мой вопрос:

Сообщение от Михаил Юрьевич

Подскажите как отловить момент открытия окна для завершения работы windows. Хотел по названию окна,но не получилось

var
h:hWnd;
begin
h:=FindWindow(nil, 'Выключить компьютер');
if h=0 then exit;
SendMessage(h, WM_DESTROY, 0,0);
end;