如下的代码可以显示出ie的“历史”浏览窗口，可是无法得到具体历史的url，使用Dispname属性无法得到。谢谢

var
Form1: TForm1;

implementation

{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);
var
Bi: TBrowseInfo;
dispname: array[0..MAX_PATH] of char;
SelectPidl, HistPidl: PItemIdlist;
begin
ShGetSpecialFolderLocation(handle, CSIDL_HISTORY, HistPidl);
with Bi do begin
hwndOwner := Handle;
PidlRoot := HistPidl;
pszDisplayName := Dispname;
lpszTitle := Pchar('UrlHistory Demo');
ulFlags := BIF_BrowseIncludeFiles;
lpfn := nil;
lParam := uint(self);
end;
SelectPidl := shbrowseforfolder(bi);
showmessage( Dispname);
//showmessage( );

end;