Главная страница
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.019 c
1-24831
shane54
2002-12-26 20:48
2003.01.09
Вопрос по StringGrid


14-25061
roach
2002-12-18 22:40
2003.01.09
Задачка на Turbo Pascal


1-24890
PTYU
2002-12-25 13:31
2003.01.09
А как обработать колёсико у мыши ? (+)


7-25121
Lony
2002-10-29 13:59
2003.01.09
Список запущенных приложений


1-24871
VL
2002-12-25 12:38
2003.01.09
Как закрыть доступ к исходникам