Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Вниз

Internet Explorer 


Burunduk   (2001-12-23 10:58) [0]

Уважаемые мастера!!!
Помогите пожайлуста. Проблема стоит в следующем. Надо текст из строки адреса. Команды типа GetWindowText(HWND) не помогает: может делать все (Tnabled, Visible), но только не брать текст.

Или вообще-то, если при помощи SetWindowText(HWND Url, char* buf) можно установить текст, но он почему-то не отображается. Хотя потом при помощи GetWindowText(HWND Url, char* buf) можно вытащить ранее введенный текст.

Помогить!!!!!!!!

Прошу писать на мыло, т.к. выход в Инет не постоянный...



RaZEr   (2001-12-24 06:30) [1]

Если тебе нужен активный url , то есть тот , который отображается в данный момент , то :

uses windows, ddeman, ......

...

function Get_URL(Servicio: string): String;
var
Cliente_DDE: TDDEClientConv;
temp:PChar;
begin
Result := "";
Cliente_DDE:= TDDEClientConv.Create( nil );
with Cliente_DDE do
begin
SetLink( Servicio,"WWW_GetWindowInfo");
temp := RequestData("0xFFFFFFFF");
Result := StrPas(temp);
StrDispose(temp);
CloseLink;
end;
Cliente_DDE.Free;
end;

// Servicio : "IExplore" или "Netscape"




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.011 c
14-66654          Alex007               2001-12-26 23:24  2002.02.21  
InstallShield


14-66686          Gayrus                2001-12-27 03:12  2002.02.21  
C++ -> Delphi


6-66629           Jaya1                 2001-12-01 08:38  2002.02.21  
проблема с апдейтом 6-х Дельфов, спешите ответить!!!


1-66570           Max-tiger             2002-02-04 11:55  2002.02.21  
Как в RichEdit выравнять текст по ширине?


3-66494           DeNNiss               2002-01-29 15:52  2002.02.21  
уважаемые программисты!