Code Problem: Adressen vom IE auslesen

matze · Verfasst: Sa 28.06.03 10:41

Hallo !!!

ich habe im swissdelphicenter folgenden code gefunden:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

uses 
  shdocvw_tlb; 
   
procedure TForm1.Button2Click(Sender: TObject); 
var 
  x: Integer; 
  Sw: IShellWindows; 
begin 
  sw := CoShellWindows.Create; 
  for x := 0 to SW.Count - 1 do 
    Listbox1.Items.Add((Sw.Item(x) as IWebbrowser2).LocationUrl); 
end;

der soll angeblich die URLs aller IE instanzen auslesen und in eine Listbox adden. tut er aber nicht !
ausserdem hab ich diese unit die in uses steht nicht.

hat die jemand oder kann mir jemand helfen (alternativer code oder so).

der komplette artikel von den schweizern ist www.swissdelphicente.../showcode.php?id=198

_________________
In the beginning was the word.
And the word was content-type: text/plain.

toms · Beiträge: 1099 Erhaltene Danke: 2

Zitat:

der soll angeblich die URLs aller IE instanzen auslesen und in eine Listbox adden. tut er aber nicht !

Warum weisst du das? Du konntest ja das Projekt gar nicht kompilieren.

Zitat:

ausserdem hab ich diese unit die in uses steht nicht.

Google mal nach shdocvw_tlb.
Das ist eine Typlibrary. Diese musst du zuerst importieren.[/quote]

matze · Verfasst: Sa 28.06.03 12:28

also in google hab ich nix sinnvolles gefunden. allerdings hab ich hier: www.tipps.delphi-sou.../tut20030411-1.shtml was gefunden.
da steht dabei, wie man diese units bekommt, aber es funzt nicht !! mir fehlt dann immernoch diese Shdocvw_tlb.pas

_________________
In the beginning was the word.
And the word was content-type: text/plain.

kasi · Beiträge: 37 Win XP D5 Ent

Die Units heißen bei die warscheinlich noch
SHDocVw, MSHTML und werden bei Delphi mitgeliefert

Hier findest du genauere Informationen, wie man diese ersetzt

www.euromind.com/ied...arted/started_d5.htm

KASI

matze · Verfasst: So 29.06.03 08:37

jo wenn ich das mit SHDocVw mache dann geht das. danke !

_________________
In the beginning was the word.
And the word was content-type: text/plain.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme