delphi里实现获取资源管理器路径以及IE打开网址列表
本文主要是实现在Delphi里如何获取资源管理器打开的路径以及IE打开的地址列表的功能，主要是使用IShellWindows和IWebBrowser2接口，具体代码如下：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses SHDocVw;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
I: integer;
spDisp: IDispatch;
IE1: IWebBrowser2;
ShellWindow: IShellWindows;
begin
ListBox1.clear;
ShellWindow := CoShellWindows.Create;
for I := 0 to ShellWindow.Count - 1 do
begin
try
spDisp := ShellWindow.Item(I);
if (spDisp <> nil) then
begin
spDisp.QueryInterface(IWebBrowser2, IE1);
if IE1 <> nil then
begin
ListBox1.items.add(IE1.Get_LocationURL());
end;
end;
except
on EAccessViolation do
begin
exit
end;
end;
end;
end;
end.
当前使用的Delphi版本：delphi10.2 操作系统window10,运行效果如下：
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.038609981536865 seconds