Определение адреса во всех открытых Explorer |
Previous Top Next |
Code: |
uses SHDocVw; {©Drkb v.3(2007): www.drkb.ru}
procedure TForm1.Button1Click(Sender: TObject); var I: Integer; Explorer: IShellWindows; begin Explorer := CoShellWindows.Create; for I := 0 to Explorer.Count - 1 do Listbox1.Items.Add((Explorer.Item(I) as IWebbrowser2).LocationUrl); end; |
Автор: Александр (Rouse_) Багель
Взято из http://forum.sources.ru
©Drkb::02392