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

← →
konusov (2002-04-02 00:44) [0]

Как в Delphi программно выключить компьютер с другого компьютера в сети?

← →
Doom © (2002-04-02 01:27) [1]

ShutDown(Computername :string);

← →
Suntechnic © (2002-04-02 06:32) [2]

См. InitiateSystemShutdown. Работает только под NT/2000/XP. Чтобы выключить удалёную машину надо иметь права администратора.

← →
Pavel_S (2002-04-02 09:48) [3]

Следующий код работает и в 98 и в 2000 винде

var handle, ph: THandle; n: DWORD; luid: TLargeInteger; priv: TOKEN_PRIVILEGES; dummy: PTokenPrivileges; ver: TOSVERSIONINFO; begin ph:=GetCurrentProcess; ver.dwOSVersionInfoSize := Sizeof(ver); GetVersionEx(ver); if ver.dwPlatformId=VER_PLATFORM_WIN32_NT then begin 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; dummy := nil; AdjustTokenPrivileges(handle, false, priv, 0, dummy^, n); end; end; ExitWindowsEx(EWX_FORCE or EWX_POWEROFF or EWX_SHUTDOWN,0); end;

← →
Pavel_S (2002-04-02 09:49) [4]

:) Ошибочка, это для локального компа

← →
Zemal © (2002-04-02 10:08) [5]

Ребят, ну что вы нюкерам и хакерам помогаете? Дойди, да выруби комп сам! А если хочешь подкозлить кому-то, уважаемый Konusov, то это твоё личное дело! :) Поищи на хакерских сайтах, там достаточно нюкеров всяких валяется. Кстати, если на компе в реестр прописать загрузку некоего сервера, который будет выполнять API функции, то вообще можно практически управлять компом... кстати, я уже такую фичу видел... можно CD привод выдвигать и задвигать, и монитор отключать, и кнопку "пуск" прятать... и т.д. Но всё это просто глупости, на которые время тратить может только... у меня всё.

← →
Tosov © (2002-04-02 11:56) [6]

InitiateSystemShutdown (см.Suntechnic )
Пример: http://delphi.xonix.ru/faq/show.php?m=system&n=2

← →
Anatoly Podgoretsky © (2002-04-02 14:03) [7]

Zemal © (02.04.02 10:08)
Не вижу здесь хакерских мотивов, обычная административная функция, нужен клиент и аутентификация и конечно права.
Если ты усмотрел вредительские действия прямо так и скажи Конушов ты горе хакер и вообще плохой человек.

← →
konusov (2002-04-02 23:59) [8]

Народ, речь идет об управлением компьютерами в игровом зале. Пользователь оплатил время и оператор не может за всеми уследить (127 мест). Поэтому нужно чтобы конкретный компьютер в сети выключался автоматически, по истечении оплаченого времени (и не включался, пока оператор не разрешит).
Повторяю вопрос: Как в Delphi программно выключить компьютер с другого компьютера в сети?

← →
Suntechnic © (2002-04-03 02:12) [9]

>konusov (02.04.02 23:59)
>Повторяю вопрос: Как в Delphi программно выключить компьютер с другого компьютера в сети?

Ты вообще ответы на свои вопросы читаешь, прежде чем новый пост создать? Для тех кто с бронепоезда повторяю: ответ дан уже два раза, Suntechnic © (02.04.02 06:32) & Tosov © (02.04.02 11:56) да к тому же ещё и с примером.

konusov (02.04.02 23:59)
Включать весьма проблематично, если конечно не задествовано Wake On Lan. Вопрос то у тебя неверно поставлен, выключать также как и локально ExitWindows, а как сделать это удаленно, тут на помощь придет технология клиент/сервер

← →
ilax (2002-04-05 03:48) [11]

А как поднимать комп по самой Wake On Lan?

← →
PC Maniac (2002-04-19 23:30) [12]

Троян свой писать надо.
Простите, Zemal, не троян а программу удаленного администрирования :-)
И экран (монитор) гасить гораздо проще и приятнее, да и если юзер доплатит можно просто заново врубить экран, а не загружать машину.

А можно просто подвесить тачку чтобы не реагировала на клаву и мышь. Мы с своем салоне так делали. А шатдаун раздражает . Человек может в азарте, доплатить захочет а ты его- шмяк! Обидится и больше не придет

Программно выключить компьютер Найти похожие ветки