Главная страница
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.017 c
14-25012
han_malign
2002-12-19 12:31
2003.01.09
---|Ветка была без названия|---


14-25095
Agent Smith
2002-12-21 20:31
2003.01.09
Клиффорд Саймак


7-25107
Leon777
2002-10-30 15:57
2003.01.09
Как дождаться окончания работы, параллельно запущенной программк


3-24775
Подскажите
2002-12-16 11:45
2003.01.09
Есть родительская таблица Name_set в ней поля:


1-24913
Weare
2002-12-23 13:36
2003.01.09
Excel и Delphi