[Linux] ouvrir une page web par "site:http:"

Bonjour
Sous Karmic 9.10 avec Lazarus 0.9.28.2 beta

J'aimerai ouvrir une page web avec le navigateur par défaut sans utiliser TProcess car TProcess n'ouvrira pas "site:http://", il ouvrira "http://",

il y a t'il une solution pour ouvrir site:http://
Merci et A+

Ta question ne me semble pas très claire... Qu'entends tu par "site:http://" ?

Je veut mettre "http:" devant "site:"
car je veut ouvrir une page web d'a partir d'un mot de recherche, comme ceci:
site:http://www.youtube.com/?gl=FR&hl=fr johnny

Si tu ecrit johnny a la fin de l'url ci-dessus dans le moteur de recherche google, tu tombera sur tout ce qui correspond a Johnny etc...

Je n'ai pas testé mais on doit pouvoir faire ça avec un truc du genre :

Code:

---

1 2 3 4 5 6 7 8 9

var browser : TProcess; url : String; begin browser:=TProcess.Create; url:='http://le-site-ou-que-je-veux-aller.la/' + 'johnny'; browser.CommandLine:='xdg-open '+url; browser.Execute; end;

---

Merci batyann811 :ccool:, je vais tester ton code :ccool:

Non, ça marche pas car ca m'affiche bien une page web mais la recherche ne pointe pas sur le mot Johnny, ca m'affiche pas page normal de Youtube.
pour bien faire il faudrait placer devant l'url le mot "site:" pour que la recherche pointe sur Johnny.

j'ai fait comme cela:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm1.Button1Click(Sender: TObject); var browser : TProcess; url : String; begin browser:=TProcess.Create(nil); url:='http://www.youtube.com/?gl=FR&hl=fr' + '+johnny'; browser.CommandLine:='xdg-open '+url; browser.Execute; browser.Free; end;

---

PUIS j'ai essayé cela "site:" mais la ça ne lance pas la page web:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.Button1Click(Sender: TObject); var browser : TProcess; url : String; begin browser:=TProcess.Create(nil); url:='site:http://www.youtube.com/?gl=FR&hl=fr' + '+johnny'; browser.CommandLine:='xdg-open '+url; browser.Execute; browser.Free;

---

url:='http://www.youtube.com/results?search_query=johnny';

?

Merci theodp :ccool:, c'est parfait :ccool:

Quand je programmer sous BCB6 Windows il y avait ShellExecute qui lancer un peut tout ce que l'on voulais, c'est dommage qu'il y est rien de semblable pour nous.

Merci a tous :ccool: et A+

ShellExecute est un fonction de l'API Win32 : http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx

Avec xdg-open tu peux ouvrir ce que tu veux sous linux

Ceci doit marcher par exemple :

Code:

---

1 2	browser.CommandLine:='xdg-open toto.png'; browser.Execute;

---

En combinant les deux tu dois pouvoir faire un truc portable du genre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

function ShellOpen(Name : String) : Integer; {$ifdef UNIX} process : TProcess; {$endif} begin {$ifdef UNIX} process:=TProcess.Create(nil); process.CommandLine:='xdg-open '+Name; process.Execute; process.Free; Result:=process.ExitStatus; {$endif} {$ifdef WINDOWS} ShellExecute( Bla Bla Bla...); {$endif} end;

---

Superbe :ccool:, Merci batyann811 :ccool:

En fait je sais pas faire pour faire un logiciel qui marche a la fois sur Linux et Windows ?
Je vois pas ce qu'il faut faire puisque dans Windows le fichier devient un banal fichier texte.