ExitWindowsEx + WindowsXP + Запуск от имени...

[ichi]

Написал простое приложение. На форму добавил одну кнопку. В обработчике кнопки добавил следующую функцию:

ExitWindowsEx(EWX_POWEROFF or EWX_FORCE, 0);

Собираю проект в среде Delphi, приложение успешно запускается. И правильно выполняет возложенную на себя функцию, т.е. завершает сеанс Windows XP.

Потом пытаюсь запустить приложение от имени другого пользователя, как от пользователя с правами администратора, так и без них. Приложение запускается, при нажатие на кнопку должен завершится сеанс WindowsXP, но это не происходит.

Подскажите, пожалуйста, из-за чего так?

[FaTaL]

Попробуйте вот это код:

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_POWEROFF or EWX_FORCE, 0);
    end;
end

[ichi]

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

Попробуйте вот это код:

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_POWEROFF or EWX_FORCE, 0);
    end;
end

В своем первом сообщение я ошибся с параметром функции, там я указал параметр EWX_POWEROFF, а меня интересует EWX_LOGOFF. Вот как раз он и не работает при запуске от имени другого пользователя, а на счет EWX_POWEROFF, то вы правы Windows XP нужно использовать указанный вами код:

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_POWEROFF or EWX_FORCE, 0);
    end;
end

Да, вопрос остается в силе. Как можно заставить работать функцию ExitWindowsEX(EWX_LOGOFF or EWX_FORCE, 0); при запуске приложения от имени другого пользователя? В данном случае код указанный пользователем по имени FaTaL не работает, но в случае с ExitWindowsEX(EWX_POWEROFF or EWX_FORCE, 0); все работает как часы.

[FaTaL]

Может для этого какие то другие привилегии нужно? Глянь тут http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx
Хотя вот это код работает под любым юзером (не проверял только под гостем):

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_LOGOFF,0);
    end;
end;

[ichi]

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

Может для этого какие то другие привилегии нужно? Глянь тут http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx
Хотя вот это код работает под любым юзером (не проверял только под гостем):

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_LOGOFF,0);
    end;
end;

Вы не совсем поняли что я хочу получить. Да, данный код работает под любой учетной записью, под которой зашел пользователь на рабочий стол WindowsXP. Но, данный код не работает когда, например, мы зашли под учетной записью user (обычный пользователь), но приложение запустили от имени administrator (администратор системы). Вот этот случай я и рассматриваю, пытаюсь понять почему не работает. С параметром EWX_POWEROFF все работает от имени другого пользователя, а EWX_LOGOFF нет.

У кого есть какие-нибудь идеи по этому поводу?

To FaTaL: Спасибо за ссылку.