Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Выключение компьютера. [D6, WinXP]

Colt © (2003-03-03 08:34:00)
Мастера, подскажите как принудительно выключить компьютер. Моя программа выключает комьютет, но если есть не сохранённые документы или программы требующие ответа от пользователя, то процесс выключения порой и не завершается. Подскажите как быть..

sanya (2003-04-02 20:16:00) [1]
По поводу: Colt © (03.03.03 09:06)

У меня отработало с правами продвинутого юзера в Win2k

спасибо

Songoku (2003-03-13 01:13:00) [2]
Прости меня парень ...
Я больше так не буду.

Songoku (2003-03-12 14:53:00) [3]
Удалено модератором
Примечание: Offtopic

Songoku (2003-03-11 21:53:00) [4]
Удалено модератором
Примечание: Материться иди в детский сад

Colt (2003-03-03 13:02:00) [5]
Спасибо NAlexey

Songoku (2003-03-03 12:57:00) [6]
Удалено модератором
Примечание: Offtopic

NAlexey (2003-03-03 12:10:00) [7]
Procedure TForm1.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);
end;

Colt (2003-03-03 12:03:00) [8]
Спасибо, было бы не плохо. Хоть я и сисадмин, удалённо я могу и так вырубить комп с помощью shutdown -m \\remotecomp1 -f, но мне желательно это делать из своей программы и локально, а не удалённо (хотя с помощью сетевого варианта я думаю можно использовать адрес 127.0.0.1)

NAlexey (2003-03-03 11:08:00) [9]
Могу тогда тебе сетевой вариант кинуть если найду, но опять же ты должен тогда иметь права сетевого админа, чтобы вырубать удаленную машину.

Colt (2003-03-03 10:53:00) [10]
в Win2k, права админа я имею, просто не всегда получается успешно завершить работу компа.

NAlexey (2003-03-03 10:36:00) [11]
Это конечно все хоршо, но еще раз, в Win2k не сработает это, ели ты не имеешь прав админа или на машине стоит какой нибудь фраервол...

Colt (2003-03-03 09:06:00) [12]
Procedure ShutDownCoputer;
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;
==========================
Работает с вышеовисанной ситуацией....

UNIVERSAL (2003-03-03 08:46:00) [13]
ExitWindowsEx(EWX_POWEROFF,EWX_FORCE) Почитай MSDN

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »