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

Вниз

Как принудительно выйти из авторомного режима в TWebBrowser?   Найти похожие ветки 

 
kofman ©   (2002-11-10 00:11) [0]

Помогите советом, я закачиваю с помощью TWebBrowser страничку, но если Internet Explorer у меня находится в автономном режиме, то выскакивает окно с просьбой "подключится к Интернет, т.к. данная страница не доступна в автономном режиме". Мастаки, как сделать, что бы это окно не появлялась? Может есть способ принудительно вывести IE из автономного режима или хотябы узнать, что браузер находится в автономном режиме - я тогда и закачивать не буду? Заранее спасибо.


 
kofman ©   (2002-11-10 14:29) [1]

Мастера помогите!!!!!


 
int64 ©   (2002-11-10 20:59) [2]

uses ..., WinInet;
...
procedure SetGlobalOffline(Value: Boolean);
const
INTERNET_STATE_DISCONNECTED_BY_USER = $10;
ISO_FORCE_DISCONNECTED = $1;
INTERNET_STATE_CONNECTED = $1;
var
ci: TInternetConnectedInfo;
dwSize: DWORD;
begin
dwSize := SizeOf(ci);
if (Value) then begin
ci.dwConnectedState := INTERNET_STATE_DISCONNECTED_BY_USER;
ci.dwFlags := ISO_FORCE_DISCONNECTED;
end else begin
ci.dwFlags := 0;
ci.dwConnectedState := INTERNET_STATE_CONNECTED;
end;
InternetSetOption(nil, INTERNET_OPTION_CONNECTED_STATE, @ci, dwSize);
end;


SetGlobalOffline(TRUE) = Work Offline;

SetglobalOffline(FALSE)= Work Online;

P.S. Юзайте TEmbeddedWB.


 
kofman ©   (2002-11-10 22:26) [3]

>int64 это как раз то что нужно, огромное Вам спасибо.



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

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

Наверх




Память: 0.47 MB
Время: 0.012 c
14-25040
OlDemon
2002-12-20 07:12
2003.01.09
Сайт по VBA


1-24895
бред
2002-12-25 19:46
2003.01.09
новый компонент ошибку дает


14-25085
XMbIPb
2002-12-22 00:15
2003.01.09
---|Ветка была без названия|---


6-24993
Александр
2002-11-08 12:50
2003.01.09
Как назначить безопасность на папку для определённой группы польз


14-25009
MegaVolt
2002-12-09 16:45
2003.01.09
---|Ветка была без названия|---