Скачать: CL | DM;

выдрать строку адреса из окна 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_ !
замечательный пример.. будем пробовать.

---

← →
Digitman ©   (2005-12-30 14:21) [7]

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

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

---

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

> Digitman ©   (30.12.05 14:21) [7]

гы...
а смысл? о_О

---

← →
Digitman ©   (2005-12-30 14:42) [9]

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.04 c