Newsgroup: it.comp.software.newsreader
Titolo: [Dialog] - script cerca parola su google

Sto provando ad usare dislog che sembra essere un ottimo newsreader ... una
volta configurato a dovere.
Girando per i newsgroup mi capita di dover ricercare termini e/o dettagli
ulteriori su google (esempio quando si chiede un consihglio per freeware
ecc). Si puo' fare  uno script da associare ad un pulsante dove una volta
evidenziato il testo da cercare lui apra il browser (io uso opera) e poi
cerchi direttamente su google la parola.
Adesso faccio copia poi vado nella finestra del browser quindi nuova scheda
e poi incolla.Si puo' automatizzare?
Ciao.
-- 
cambia 1 in 0 per email

 e poi incolla.Si puo' automatizzare?
Sģ, perņ il Ctrl+C lo devi fare ancora tu :-) 
Con gli script di Dialog non credo sia possibile mettere nella clipboard un
testo evidenziato, io almeno non ci sono mai riuscita.
Vedi se ti va bene. Eventualmente per la ricerca di una frase esatta si
possono aggiungere le virgolette intorno.
Program CercaInGoogle;
uses
  Forms, StdCtrls;
var testo: string;                                      
function ShellExecute(hWnd: THandle; Operation, FileName, Parameters, Directory: PChar; ShowCmd: Integer): THandle;
 external 'ShellE...@shell32.dll stdcall';
function GetClipboard: String;
var
  MioMemo: TMemo;
  MioForm: TForm;
begin
  MioForm:=TForm.Create(nil);
  MioMemo:=TMemo.Create(MioForm);
  MioMemo.Parent:=MioForm;
  MioMemo.PasteFromClipboard;
  Result:=MioMemo.Text;
  MioMemo.Free;
  MioForm.Free;
end;
Begin
 testo := GetClipboard;                                     
 ShellExecute(0, 'open', PChar('
http://www.google.com/search?q='+testo
), '', '', 1);
End.
Ciao,
-- 
Maria Luisa C - 03/01/2007 19.04.30
Stop the War  <->  A Step Worth
np: Tom Waits - Frank's Song

 testo evidenziato
Possibile, è possibile: infatti lo swissknife lo fa.
Un Ado('Copy') non potrebbe servire?
-- 
Bye, Lem
Ceterum censeo ISLAM esse delendum
__________________________________
Combatti l'AIDS col tuo computer: 
http://fightaidsathome.scripps.edu/

 Un Ado('Copy') non potrebbe servire?
Sì, confermo, da me funziona:
  Program Cercalo;
  uses
    Forms, StdCtrls;
 
  var testo: string;                                      
 
  function ShellExecute(hWnd: THandle; Operation, FileName, Parameters, Directory: PChar; ShowCmd: Integer): THandle;
   external 'ShellE...@shell32.dll stdcall';
 
  function GetClipboard: String;
  var
    MioMemo: TMemo;
    MioForm: TForm;
 
  begin
    MioForm:=TForm.Create(nil);
    MioMemo:=TMemo.Create(MioForm);
    MioMemo.Parent:=MioForm;
    MioMemo.PasteFromClipboard;
    Result:=MioMemo.Text;
    MioMemo.Free;
    MioForm.Free;      
  end;
 
  Begin
   Ado('Copy');
   // Postkey(67,false,false,true,false,false,false,false,false); //Ctrl+C  
   testo := GetClipboard;                                     
   ShellExecute(0, 'open', PChar('
http://www.google.com/search?q='+testo
), '', '', 1);       
  End.
Gli ho anche associato l'iconcina della lente e mappamondo...
Grazie ad entrambi :)
-- 
 Felice 2007  |    |_/    .-.      .-.   |_|          WWW   \o/   \V/
  |     \  |  | -._(^}   /(")\  W '(")'  [`)__,~      (')   (')   (')
  |    |\/ |  |  (__)   / /_\ \(O)`_/|    (___)     %-J_| $-J_| &-J_|
 ____|_|  _|  |  |\|\    (/_\) (_) | |    /\ /\      _/_|  _/_|  _/_|

 Grazie ad entrambi :)
Beh, prego, ma io non ho fatto proprio nulla.
Il lavorone l'ha fatto tutto Maria Luisa, che ringrazio anch'io. :)


 e poi incolla.Si puo' automatizzare?
Associa una scorciatoia a Modifica/Cerca su Google, ad esempio Ctrl+G.
Poi seleziona la parola e, in veloce sequenza, Ctrl+C, Ctrl+G, Ctrl+V,
Invio.
Oppure, volendo evitare il copia-incolla, una volta selezionato:
Ctrl+G, ↓, Invio.
-- 
daRkSidE, 04/01/2007 0.45.53

 Il lavorone l'ha fatto tutto Maria Luisa, che ringrazio anch'io. :)
Solo un po' di copia-incolla da vecchi script!
A proposito del copia, mi ricordavo che tempo fa non mi funzionava e così
ieri sera non ci ho neanche provato. Mi pare che provavo con Postkey per il
Ctrl+C, che non mi funziona neanche adesso.
Invece Ado('Copy') è perfetto!
Grazie a te e a Pigafetta :-)
-- 
Maria Luisa C - 04/01/2007 11.06.37
Health nuts are going to feel stupid someday,
lying in hospitals dying of nothing.

 Grazie a te e a Pigafetta :-)
Ottimo Grazie a tutti!
Sempre piu' stupito... fra un po' faremo fare a dialog anche il caffe'!!
Effettivamente e' un prorgramma piu' che configurabile.


  ShellExecute(0, 'open', PChar('
http://www.google.com/search?q='+testo
), '', '', 1);
Bello! 
E se sostituissi con
('
http://www.onelook.com/?w='+testo
)
immagino che potrebbe diventare uno script "Cerca sui dizionari di
inglese")
:-)

 inglese")
Infatti, le possibilità sono 'infinite' :-)
E che ne dici di una ricerca su Wikipedia?
('
http://en.wikipedia.org/wiki/Special:Search?search='+testo
)
E per il pulsante tra le icone di Dialog c'è anche la W !
-- 
Maria Luisa C - 30/01/2007 14.48.55
Frogs have it easy, they can eat what bugs them.