Thema: Delphi DeskBand mit Script

Einzelnen Beitrag anzeigen

Ydobon

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

Re: DeskBand mit Script

  Alt 17. Mär 2006, 00: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