выдрать строку адреса из окна IE

← →
з. танька (2005-12-29 00:23) [0]

привет!
как сделать сабж?

зы: с наступающим!

← →
Германн © (2005-12-29 04:32) [1]

И тебя "б. злобная" с тем же!

← →
evvcom © (2005-12-29 09:49) [2]

> выдрать строку адреса из окна IE

Например, FindWindow (или EnumWindows) и GetWindowText. А если у тебя 2 и более IE запущено?

зы: и тебя с наступающим!

← →
Rouse_ © (2005-12-29 11:44) [3]

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, MSHTML_TLB, ActiveX, SHDocVw, OleCtrls; ... procedure TForm1.Button2Click(Sender: TObject); var ShellWindow: IShellWindows; WB: IWebBrowserApp; spDisp: IDispatch; k: Integer; begin ShellWindow := CoShellWindows.Create; for k := 0 to ShellWindow.Count do begin spDisp := ShellWindow.Item(k); if spDisp = nil then Continue; spDisp.QueryInterface(IWebBrowserApp, WB); if WB <> nil then Memo1.Lines.Add(WB.LocationURL); end; end;

← →
з. танька (2005-12-29 12:11) [4]

гм а если уже известен handle окна.. окна бравзера?

← →
Rouse_ © (2005-12-29 12:52) [5]

Ну вот, комуто пример делал, хэндл известен:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ActiveX, SHDocVw, ShellAPI;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
IDHOT: Cardinal;
procedure WMHotKey(var Message: TMessage); message WM_HOTKEY;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
IDHOT := GlobalAddAtom("Alt+Space hotkey");
RegisterHotKey(Handle, IDHOT, MOD_WIN, 90);
end;

procedure TForm1.WMHotKey(var Message: TMessage);
var
ShellWindow: IShellWindows;
WB: IWebBrowserApp;
spDisp: IDispatch;
I: Integer;
FWindow: THandle;
NS: IShellFavoritesNameSpace;
begin
if Message.WParam = IDHOT then
begin
FWindow := GetForegroundWindow;
ShellWindow := CoShellWindows.Create;
for I := 0 to ShellWindow.Count - 1 do
begin
spDisp := ShellWindow.Item(I);
if spDisp = nil then Continue;
spDisp.QueryInterface(IWebBrowserApp, WB);
if WB <> nil then
if WB.HWND = FWindow then
// Тут создавай директорию. Путь к открытой папке лежит в WB.LocationURL
end;
end;
end;

end.

← →
з. танька (2005-12-30 14:14) [6]

спасибо Rouse_ !
замечательный пример.. будем пробовать.

Танька, а почему ты все з. да з. ?
На д. не было желания перейти ?)

p.s.
"Танька-красавица со мной останется, А вы свободны, господа !" (С) Трофим

← →
з. танька (2005-12-30 14:35) [8]

да уж больно "з." твое глаз-мысль режет)

выдрать строку адреса из окна IE Найти похожие ветки