Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Соединение с интернетом [D7, WinXP]

ArtemESC © (2005-08-24 18:04:00)
Доброго времени суток..
Как программно отключить связь с интернетом?

Antonn (2005-08-25 05:26:00) [1]
Piter © (24.08.05 20:17) [2]
плохое настроение было... но задание процедурка выполнила:)

Piter (2005-08-24 22:00:00) [2]
ArtemESC (24.08.05 20:35) [4]
С помощью модема

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

ArtemESC (2005-08-24 20:35:00) [3]
>>смотря как программно она была с ним установлена
С помощью модема, через провайдера...

Piter (2005-08-24 20:17:00) [4]
Antonn © (24.08.05 18:41) [1]

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

Piter (2005-08-24 20:17:00) [5]
ArtemESC (24.08.05 18:04)
Как программно отключить связь с интернетом?

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

Antonn (2005-08-24 18:41:00) [6]
вызвать вот эту процедуру:

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);

Наверх

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