用以下代码可以成功获取ＩＥ窗口选中区域的html代码，但到傲游浏览器中却不行，请赐教

[eWong2016]

目的：从基于ＩＥ内核的傲游浏览器中取出选中区域的ＨＴＭＬ代码
说明：在ＩＥ６下测试顺利通过，但在傲游浏览器中却在“错误１”处报错。

只有这些分了，真抱歉。

uses msHtml, SHdocvw;

procedure TForm2.Button1Click(Sender: TObject);
var
I: Integer;
ShellWindow: IShellWindows;
IE: IWebbrowser2;
Doc: IHtmlDocument2;
TxtRange: IHtmlTxtRange;
S: string;
P: PChar;
begin
ShellWindow := CoShellWindows.Create;
for I := 0 to ShellWindow.Count-1 do begin
IE := ShellWindow.Item(I) as IWebbrowser2;
if IE <> nil then begin
GetMem(P, MaxByte+1);
GetClassName(IE.HWND, P, MaxByte);// <<<-----“错误１”
if SameText(P, 'IEFrame') then begin
Doc := IE.Document as IHtmlDocument2;
if Doc.Selection <> nil then begin
TxtRange := Doc.Selection.CreateRange as IHtmlTxtRange;
S := TxtRange.Get_htmlText;
Memo1.Lines.Add(S);
end;
end;
FreeMem(P);
end;
end;
end;

[eWong2016]

。。。
这个问题。。。。。。还真是。。。。个问题。。。。

[eWong2016]

有没有人能帮上我啊。。。。

[knowledge_Is_Life]

接分是王道！

[UltraBejing]

有点难度哦