so, hab das programm jetzt für die erste beta soweit fertig, nur diese eine eigentschaft fehlt mir und ohne die kann ich das programm nich so recht gebrauchen.
hat echt keiner von euch damit erfahrungen?
im moment sieht die newwindow2 procedure so aus
Code:
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var adr:String;
begin
adr:=WebBrowser1.OleObject.Document.Url;
ShellExecute(Form1.Handle, 'open', 'NetView.exe',pchar(adr),nil,SW_SHOW);
end;
aber wie gesagt, das gibt die aktuelle
url und nicht den link