| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как включить и выключить компьютер по сети?

it-doctor ©   (2004-05-31 09:59:00) 

Как включить и выключить компьютер по сети?

---

BiN   (2004-05-31 15:26:00) [1]


 TInitiateSystemShutdownW = function(lpMachineName:LPWSTR; lpMessage: LPWSTR;
                                    dwTimeout: DWORD; bForceAppsClosed:BOOL;
                                    bRebootAfterShutdown:BOOL):BOOL; stdcall;

function Shutdown(lpMachineName:WideString; lpMessage: WideString;
                  dwTimeout: DWORD; bForceAppsClosed:BOOL;
                  bRebootAfterShutdown:BOOL):BOOL;
var
 ShProc:TInitiateSystemShutdownW;
begin
 ShProc:=GetProcAddress(GetModuleHandle(advapi32), 'InitiateSystemShutdownW');
 Result:= (@ShProc<>nil) and
           ShProc(PWideChar(lpMachineName), PWideChar(lpMessage), dwTimeout, bForceAppsClosed, bRebootAfterShutdown);
end;


---

Ozone   (2004-05-31 15:16:00) [2]

Да - вторая ожила :-), но первая ни в какую ...

---

Ozone   (2004-05-31 15:05:00) [3]

Да - вторая ожила :-), но первая ни в какую ...

---

Anatoly Podgoretsky   (2004-05-31 14:35:00) [4]

Неправда ваша, вторая живая

---

Rouse_   (2004-05-31 14:34:00) [5]

> [2] Ozone ©   (31.05.04 13:33)
Первая может быть, у меня этот адрес на работе забанен, а вторая нормальная, только что проверил :)

---

Ozone   (2004-05-31 13:33:00) [6]

TO Rouse_ ©   (31.05.04 13:32) [1]

А ссылочки-то мертвые ...

---

Rouse_   (2004-05-31 13:32:00) [7]

Выключить:
InitiateSystemShutdown
http://delphi.xonix.ru/faq/system/shutdown02.shtml
Включить:
При включенной поддержке WOL в биосе можно послать Magic Packet
http://www.swissdelphicenter.ch/en/showcode.php?id=1556

---
Желаю успехов

---

Наверх