Thema: Delphi DeskBand mit Script

Einzelnen Beitrag anzeigen

Ydobon

Registriert seit: 3. Mär 2006
261 Beiträge
 
Delphi 11 Alexandria
 
#3

Re: DeskBand mit Script

  Alt 16. Mär 2006, 23:18
Über ein Script muss es gehen, da man das Kontextmenü des IE nur damit erweitern kann. Markiert man einen Begriff und wählt dann aus dem Menu die Suche, wird dieses Script ausgeführt:

Code:
<html>
<object   id=gg align=top classid="clsid:00EF2092-6AC5-47c0-BD25-CF2D5D657FEB" width=1 height=1 border=0 vspace=0></object>
<script language="JavaScript" defer>
  var parentwin = external.menuArguments;
  var doc = parentwin.document;
  var sel = doc.selection;
  var rng = sel.createRange();
  var strhtml = new String(rng.htmlText);
  var str = strhtml.replace(/<[^>]*>/g," ");
  str = str.replace(/\s+/g, " ");
  str = str.replace(/^\s*/,"");
  str = str.replace(/\s*$/,"");
  if (str.indexOf(" ") != -1)
    str = '"' + str + '"';
  var bnewwindow = external.menuArguments.event.shiftKey;
  var url = "http://www.google.com/search?sourceid=navclient-menuext&q=" + escape(str);

  try {
    url = gg.Search(String(str));
    bnewwindow = gg.OpenNewWindow();
  } catch (ex) { }

  if(bnewwindow)
    parentwin.open(url);
  else
    parentwin.navigate(url);
   </script>
</html>
[edit=sakura] [code]-tags Mfg, sakura[/edit]
  Mit Zitat antworten Zitat