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

Вниз

URL из активного окна IE   Найти похожие ветки 

 
Yuriy ©   (2002-08-17 15:30) [0]

Программа должна получать URL из активного окна IE, а она упорно берет его из окна запущенного первым... Что делать?


 
Yuriy ©   (2002-08-18 19:19) [1]

АП


 
n\a   (2002-08-18 21:42) [2]

проверяй через винапи какое окно в данный момент активно, если ие то бери урл... конкретно я не помню название функции, но такая есть... см. help


 
Ihor Osov'yak ©   (2002-08-19 08:32) [3]

в дополнение "n\a"


function GetIEFromHWND(WHandle: HWND; var IE: IWebbrowser2): HRESULT;
var
hInst: HWND;
lRes: Cardinal;
MSG: Integer;
pDoc: IHTMLDocument2;
ObjectFromLresult: TObjectFromLresult;
begin
Result := S_FALSE;
hInst := LoadLibrary("Oleacc.dll");
@ObjectFromLresult := GetProcAddress(hInst, "ObjectFromLresult");
if @ObjectFromLresult <> nil then begin
try
MSG := RegisterWindowMessage("WM_HTML_GETOBJECT");
SendMessageTimeOut(WHandle, MSG, 0, 0, SMTO_ABORTIFHUNG, 1000, lRes);
Result := ObjectFromLresult(lRes, IHTMLDocument2, 0, pDoc);
if Result = S_OK then
(pDoc.parentWindow as IServiceprovider).QueryService(IWebbrowserApp,
IWebbrowser2, IE);
finally
FreeLibrary(hInst);
end;
end;
end;


и далее IE.Get_LocationURL





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

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

Наверх




Память: 0.47 MB
Время: 0.014 c
3-68653
@Ujin
2002-09-30 12:10
2002.10.21
Как передать параметры запросу MSAccess, пишу следующее:


14-68925
den_c
2002-09-26 07:07
2002.10.21
Что делать когда не знаешь серийный номер и Authorization Key


4-69070
Same_Genetik
2002-09-06 15:55
2002.10.21
Как получить имя текущего пользователя в Win2000 ?


1-68856
JeffMill
2002-10-10 15:03
2002.10.21
работа с отчетами


1-68770
dimonf
2002-10-11 16:29
2002.10.21
Как изменить цвет активной ячейки DBGrid-a c синего на другой?