хук на выключение, перезагрузку, спящий режим и логоут

[beegl]

почему у меня не работает этот хук на выключение, перезагрузку, спящий режим и логоут? Проверьте, у кого работает, у меня не работает

procedure SystemShutdown(const ATimeOut: DWORD; const AForceClose, AReboot: boolean);
var
   PreviosPrivileges: ^TTokenPrivileges;
   TokenPrivileges: TTokenPrivileges;
   hToken: THandle;
   tmpReturnLength: dword;
begin
	  if (Win32Platform = VER_PLATFORM_WIN32_NT) then
begin
	    if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then
	    begin
	      LookupPrivilegeValue(nil, 'SeShutdownPrivilege', TokenPrivileges.Privileges[0].Luid);
	      TokenPrivileges.PrivilegeCount := 1;
	      TokenPrivileges.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
	      tmpReturnLength := 0;
	      PreviosPrivileges := nil;
	      AdjustTokenPrivileges(hToken, False, TokenPrivileges, 0, PreviosPrivileges^, tmpReturnLength);
	      if InitiateSystemShutdown(nil, nil, ATimeOut, AForceClose, AReboot) then
	      begin
	        TokenPrivileges.Privileges[0].Attributes := 0;
	        AdjustTokenPrivileges(hToken, False, TokenPrivileges, 0, PreviosPrivileges^, tmpReturnLength);
	      end;
	    end;
	  end
	  else
	    ExitWindowsEx(EWX_FORCE or EWX_SHUTDOWN or EWX_POWEROFF, 0);
end;

или вот ещё функция:

function ShutdownPC: Boolean;
var
  TTokenHd: THandle;
  TTokenPvg: TTokenPrivileges;
  cbtpPrevious: DWORD;
  rTTokenPvg: TTokenPrivileges;
  pcbtpPreviousRequired: DWORD;
  tpResult: Boolean;
  RebootParam: Longword;
const
  SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';
begin
  RebootParam := EWX_POWEROFF or EWX_FORCE;
  if Win32Platform = VER_PLATFORM_WIN32_NT then
  begin
    tpResult := OpenProcessToken(GetCurrentProcess(),
      TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,
      TTokenHd);
    if tpResult then
    begin
      tpResult := LookupPrivilegeValue(nil,
                                       SE_SHUTDOWN_NAME,
                                       TTokenPvg.Privileges[0].Luid);
      TTokenPvg.PrivilegeCount := 1;
      TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
      cbtpPrevious := SizeOf(rTTokenPvg);
      pcbtpPreviousRequired := 0;
      if tpResult then
        Windows.AdjustTokenPrivileges(TTokenHd,
                                      False,
                                      TTokenPvg,
                                      cbtpPrevious,
                                      rTTokenPvg,
                                      pcbtpPreviousRequired);
    end;
  end;
  Result := ExitWindowsEx(RebootParam, 0);
end;

или вот, но это не то, это хук на диалог завершения:

function TForm1.HookEndSession(var Message: TMessage): Boolean;
begin
  result := false;
  if Message.Msg = WM_ENDSESSION then begin
    Message.Result := 0;
    result := true;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.HookMainWindow(HookEndSession);
end;

а это сама процедура выключения :

procedure PowerOFF_PC;
var
  ph: THandle;
  tp, prevst: TTokenPrivileges;
  rl: DWORD;
begin
  OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or
    TOKEN_QUERY, ph);
  LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tp.Privileges[0].Luid);
  tp.PrivilegeCount := 1;
  tp.Privileges[0].Attributes := 2;
  AdjustTokenPrivileges(ph, FALSE, tp, SizeOf(prevst), prevst, rl);
  ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF, 0);
end;

а это на спящий режим:

procedure SleepPC;
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; // one privelege to set
    tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
    if AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength) then
      SetSystemPowerState(true, true);
  end;
end;

мне надо прервать это действие,например, для программы AIMP3 или AIMP2 AutoShutDown
как правильно записать, или напишите пример

[Пепел Феникса]

чтото не замечаю тут хука

[beegl]

Сообщение от Пепел Феникса

чтото не замечаю тут хука

мне надо не хук, а прерывание выключения ПК другими программами,программно, например программы AIMP2-AIMP3

[Пепел Феникса]

вариант сплайсить нужную функцию у целевой программы.

[Человек_Борща]

не не, просто прервать цикл WM_* сообщения которое идет по всем окнам и сообщает что надо закрываться.

[beegl]

Человек_Борща, напишите пример, и чтоб он ничего лишнего не перехвачивал

[Пепел Феникса]

Сообщение от Человек_Борща

не не, просто прервать цикл WM_* сообщения которое идет по всем окнам и сообщает что надо закрываться.

часть сообщений начнут уже закрыватся.
хотя можно попробовать сыграть на порядке сообщения(помню есть такая функция).
чтото не пришло в голову, только это перехват выключения вообще.

[Stilet]

http://www.programmersforum.ru/showthread.php?t=168613
Подходит идея?

[Человек_Борща]

beegl,

Человек_Борща, напишите пример, и чтоб он ничего лишнего не перехвачивал

Вы наглый. Сами пишите.

часть сообщений начнут уже закрыватся.

Неа, если стать первым в очереди =) В своей программе это я реализовал через SetProcessShutdownParameters
+/- пару нюансов с запуском, чтобы точно первым получить 0x3ff для себя.

[beegl]

что-то ничего не получается, уже все способы испробовал, постоянно выключается комп, оформите пожалуйста проект, и прикрепите сюда. Буду премного благодарен

это тоже не прерывает

public
     IsWindowsEndSession: Boolean;
     procedure WindowsEndSessionHook(var msg: TMessage); message WM_QUERYENDSESSION;
    { Public declarations }
end;



procedure TForm1.WindowsEndSessionHook(var msg: TMessage);
begin
  if msg.WParam = WM_QUERYENDSESSION then
begin
        IsWindowsEndSession := True;
  end;
  inherited;
end;