Форум: "WinAPI";
Текущий архив: 2005.10.30;
Скачать: [xml.tar.bz2];
Вниз
Соединение с интернетом Найти похожие ветки
← →
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 вся ветка
Форум: "WinAPI";
Текущий архив: 2005.10.30;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.045 c
