VPF::EWX_SHUTDOWN - Форум программистов

Вася

Дата 25.1.2003, 00:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 27.12.2002

Репутация: нет
Всего: нет

Привет!

Мне надо вырубить комп и я использую Exitwindowsex(ewx_force,0) но он делает logoff. А на
ewx_shutdown, ewx_reboot вообще никак не риагирует. подскажитеб что делать.
Спасибо.

P.S. Что это с форумом?

Vit

Дата 25.1.2003, 00:19 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 1
Всего: 207

Цитата

P.S. Что это с форумом?

http://forum.vingrad.ru/index.php?act=ST&f=27&t=5911

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Guest_Mikel

Дата 26.1.2003, 01:32 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

А система то какая.
ЗЫ: попробуй ExitWindowsEx(EWX_FORCE or EWX_SHUTDOWN,0)

December

Дата 26.1.2003, 09:47 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: нет
Всего: 57

Цитата

Попробуй различные комбинации флагов. У меня под 98 флаги перегруза и выключения действуют наоборот, а под 2000 - вообще ни черта ни делают.

--------------------

Для друзей с винграда - скидки на разработку сайтов

dr.ZmeY

Дата 26.1.2003, 10:11 (ссылка)

(нет голосов)

Загрузка ...

Политолог

Профиль
Группа: Участник Клуба
Сообщений: 3892
Регистрация: 26.3.2002
Где: ..::STALINGRAD::. .

Репутация: нет
Всего: 60

ExitWindows(EW_RebootSystem, 0);

--------------------

Мой блог в ЖЖ

Вася

Дата 27.1.2003, 04:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 27.12.2002

Репутация: нет
Всего: нет

Код

procedure ShutDownSystem;
var
Handle,Ph: THandle;
pid : DWORD;
luid : TLargeInteger;
priv : TOKEN_PRIVILEGES;
ver : TOSVersionInfo;
begin
ver.dwOSVersionInfoSize:=Sizeof(ver);
GetVersionEx(ver);
if ver.dwPlatformId=VER_PLATFORM_WIN32_NT then begin
pid:=GetCurrentProcessId;
ph := OpenProcess(PROCESS_ALL_ACCESS,false,pid);
if OpenProcessToken(ph,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,pid);
end;
end;
ExitWindowsEx(EWX_POWEROFF+EWX_FORCE ,0);
end;

Нашел:
ShutDown - ит и WinXP и 2000;

Это сообщение отредактировал(а) p0s0l - 29.9.2005, 12:34

Medved

Дата 27.1.2003, 06:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: нет
Всего: 154

Это ты Вася из Кулибы взял.

Вот оттуда еще один вариант:

Код


Procedure Shutdown(Name:String;   // Имя машины (\\SERVER)

Message:String;  // Сообщение
Delay:Integer;  // Задержка перед рестартом
Restart,CloseAll:Boolean);
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);
InitiateSystemShutdown(PChar(name),PChar(Message),Delay,Restart,CloseAll);
ShowMessage(SysErrorMessage(GetLastError)); // Результат

--------------------

http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »