关于IShellWindows在Vista下的问题

[caize131]

我需要判断现在的机器是否打开了某个特定的网站,使用代码如下:

function CheckWindinWebOpen(FindStr : string):boolean;
var
ShellWindow: IShellWindows;
nCount: integer;
spDisp: IDispatch;
i: integer;
vi: OleVariant;
IE1: IWebBrowser2;
begin
Result := false;
ShellWindow := CoShellWindows.Create;
nCount := ShellWindow.Count;
for i := 0 to nCount - 1 do
begin
vi := i;
try
spDisp := ShellWindow.Item(vi);
except
exit
end;
if (spDisp <> nil) then
begin
try
spDisp.QueryInterface(iWebBrowser2, IE1);
except
on EAccessViolation do
begin
exit
end;
end;

if (IE1 <> nil) then
begin
if pos(FindStr,IE1.LocationName)<>0 then
Result := true;
end;
end;
end;
end;
此代码在XP下是OK的,但是在Vista下就取不出来IE了,网上搜索了一下是UAC配置的问题.忽略了IE.
在不修改UAC配置的情况下如何能够解决此问题呢?
或者不使用IShellWindows,能实现我说得那个功能也可以.

[okmnji79513]

没用过Vista，帮up

[caize131]

没有人知道么？自己顶一下

[大大怪老张]

貌似是不行的吧。

本来打算用 FindWindow 试试，结果发现对多 tab 的 ie7 只能找到当前查看网站的地址，无法获得其他网站地址。

要是遍历的话，可能还得用你的方法，不过 uac 恐怕是绕不过去吧。

[caize131]

哎~~~痛苦
再顶

[caize131]

最后顶一次,再没有只能结帖了...

[caize131]

看来没戏了.结束算分