A
aton2000
Unregistered / Unconfirmed
GUEST, unregistred user!
下面这一段可以得到所有的IWebbrowser2,
但我怎么才知道哪个IWebbrowser2是当前正在打开的呢?
举例,如果使用netcaptor软件,打开很多窗口,
可以得到每个窗口的IWebbrowser2,
但怎么才知道哪个是当前打开的IWebbrowser2呢???
uses
shdocvw_tlb;
procedure TForm1.Button1Click(Sender: TObject);
var
x: Integer;
Sw: IShellWindows;
begin
sw := CoShellWindows.Create;
for x := 0 to SW.Count - 1 do
Listbox1.Items.Add((Sw.Item(x) as IWebbrowser2).LocationUrl);
end;
但我怎么才知道哪个IWebbrowser2是当前正在打开的呢?
举例,如果使用netcaptor软件,打开很多窗口,
可以得到每个窗口的IWebbrowser2,
但怎么才知道哪个是当前打开的IWebbrowser2呢???
uses
shdocvw_tlb;
procedure TForm1.Button1Click(Sender: TObject);
var
x: Integer;
Sw: IShellWindows;
begin
sw := CoShellWindows.Create;
for x := 0 to SW.Count - 1 do
Listbox1.Items.Add((Sw.Item(x) as IWebbrowser2).LocationUrl);
end;