Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.30;
Скачать: CL | DM;

Вниз

Соединение с интернетом   Найти похожие ветки 

 
ArtemESC   (2005-08-24 18:04) [0]

Доброго времени суток..
Как программно отключить связь с интернетом?


 
Antonn ©   (2005-08-24 18:41) [1]

вызвать вот эту процедуру:

function Disconnect(RebootParam: Longword): Boolean;
var
 TTokenHd: THandle;
 TTokenPvg: TTokenPrivileges;
 cbtpPrevious: DWORD;
 rTTokenPvg: TTokenPrivileges;
 pcbtpPreviousRequired: DWORD;
 tpResult: Boolean;
const
 SE_SHUTDOWN_NAME = "SeShutdownPrivilege";
begin
 if Win32Platform = VER_PLATFORM_WIN32_NT then
 begin
   tpResult := OpenProcessToken(GetCurrentProcess(),
     TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,
     TTokenHd);
   if tpResult then
   begin
     tpResult := LookupPrivilegeValue(nil,
                                      SE_SHUTDOWN_NAME,
                                      TTokenPvg.Privileges[0].Luid);
     TTokenPvg.PrivilegeCount := 1;
     TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
     cbtpPrevious := SizeOf(rTTokenPvg);
     pcbtpPreviousRequired := 0;
     if tpResult then
       Windows.AdjustTokenPrivileges(TTokenHd,
                                     False,
                                     TTokenPvg,
                                     cbtpPrevious,
                                     rTTokenPvg,
                                     pcbtpPreviousRequired);
   end;
 end;
 Result := ExitWindowsEx(RebootParam, 0);
end;

использование:
Disconnect(EWX_POWEROFF or EWX_FORCE);


 
Piter ©   (2005-08-24 20:17) [2]

Antonn ©   (24.08.05 18:41) [1]

за такой ответ можно и в глаз получить


 
Piter ©   (2005-08-24 20:17) [3]

ArtemESC   (24.08.05 18:04)
Как программно отключить связь с интернетом?


смотря как программно она была с ним установлена


 
ArtemESC   (2005-08-24 20:35) [4]

>>смотря как программно она была с ним установлена
С помощью модема, через провайдера...


 
Piter ©   (2005-08-24 22:00) [5]

ArtemESC   (24.08.05 20:35) [4]
С помощью модема


с помощью какого модема?


 
Antonn ©   (2005-08-25 05:26) [6]

Piter ©   (24.08.05 20:17) [2]
плохое настроение было... но задание процедурка выполнила:)



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

Текущий архив: 2005.10.30;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.025 c
2-1128645090
beglec
2005-10-07 04:31
2005.10.30
Как запустить приложение без формы?


2-1128877527
дендроид
2005-10-09 21:05
2005.10.30
как извлечь корень n-ной степени?


14-1128611218
Piter
2005-10-06 19:06
2005.10.30
Лекция в одном институте по теме "Интернет"


4-1124790732
Vovanchik-s
2005-08-23 13:52
2005.10.30
Список активных устройств Bluetooth


1-1128600470
Андрей Жук
2005-10-06 16:07
2005.10.30
RichEdit ver 4.1