Форум: "Сети";
Текущий архив: 2004.08.01;
Скачать: [xml.tar.bz2];

Вниз

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

← →
it-doctor ©   (2004-05-31 09:59) [0]

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

---

← →
Rouse_ ©   (2004-05-31 13:32) [1]

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

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

---

← →
Ozone ©   (2004-05-31 13:33) [2]

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

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

---

← →
Rouse_ ©   (2004-05-31 14:34) [3]

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

---

← →
Anatoly Podgoretsky ©   (2004-05-31 14:35) [4]

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

---

← →
Ozone ©   (2004-05-31 15:05) [5]

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

---

← →
Ozone ©   (2004-05-31 15:16) [6]

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

---

← →
BiN ©   (2004-05-31 15:26) [7]


 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;


---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2004.08.01;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 1.6 c