es klappt einfach nicht, ich such selbst schon
seit stunden im netz und nichts funktioniert
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser.Navigate('
http://go.winantivirus.com/MTQ1NjY=/2/5390//');
end;
procedure TForm1.WebBrowserBeforeNavigate2(Sender: TObject;
const pDisp: IDispatch;
var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant;
var Cancel: WordBool);
begin
if SmartPos('
.exe',
URL, False, 1, True) > 0
then
begin
Cancel := True;
with pDisp
as IWebBrowser2
do Stop;
Exit;
end;
end;