Download programm starten?????

[BornToBeBreit]

Das is das Problem, ich hab noch nix geschrieben, weil ich nicht weiß, was von den sachen die da stehen nehmen soll.

[BornToBeBreit]

Also jetz, hab jetz weng rumbrobirt und ich habs jetz, aber jetz hab ich folgendess problem.
hab das jetz eingebaut und hab geschrieben:

edit1.text := URL;

nur so zum test.

aber da wird keine URL angezeit, was mach ich jetz?

[gordon freeman]

Also meine Glaskugel is gerade in Reperatur. Zeig doch mal den Code, in dem die Variable URL gefüllt wird. Dann können wir dir auch sagen, warum bei dir im Edit nix angezeigt wird.

[BornToBeBreit]

Also gut aber ich glaub das das net wirklich viel bringt, hab ja nur das von dem anderen da abgeschrieben.

Code:

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; 
  var ppDisp: IDispatch; var Cancel: WordBool); 
var 
  URL: WideString; 
begin 
  URL := ((TWebbrowser(Sender).document as IHTMLDocument2).activeElement as IHTMLElement).getAttribute('href', 0);
  Edit1.Text:=URL;
end;