Discussion :

[User Name]

Bonjour,
Je recherche la commande qui me permettrait d'ouvrir un site web dans le navigateur par défaut avec un bouton d'une Form.
J'ai pas mal Googlé, mais j'ai eu l'impression de tourner en rond...
Merci de votre aide

[ero-sennin]

Salut,

Surement comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
 ShellExecute(0,'OPEN','www.developpez.com', Nil, Nil, SW_SHOW);
end;

Ne pas oublier de mettre ShellAPI dans les uses
A+

[qhardy]

Merci pour cet reponse, c'est toujours utile de savoir comment faire cà.

[User Name]

Waouw!
Merci beaucoup!

[michaellynx]

Bonsoir a toute la communaute.
Javais besoin dajouter un navigateur dans lun de mes programmes. jai ajoute la ligne
ShellExecute(0,'OPEN','www.developpez.com', Nil, Nil, SW_SHOW);
sur mon onclik . Mais quand je compile,le navigateur ne souvre pas. jai ajoute ShellAPI dans le Uses.
Que faire?????

[breizh44]

Le mieux serait de nous fournir ton code (et aussi OS,....), parce que cette ligne fonctionne parfaitement.

[michaellynx]

voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TForm6.Button1Click(Sender: TObject);
begin
 ShellExecute(handle,'OPEN','www.yahoo.fr', '','', SW_SHOWNORMAL);
end;

[breizh44]

Enlève le handle et replace le par 0 (zero);

Ton code est maintenant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
 ShellExecute(0,'OPEN','www.yahoo.fr', Nil, Nil, SW_SHOW);

N'hésite pas à répondre (si je peux aider en quoique ce soit, j'use tellement de ce forum pour filer un coup de main quand je peux!)

[michaellynx]

Merci cher breizh44
j`ai enlevé le handle effectivement çà a marche avec 0.
Merci donc . cependant pourquoi enlever le handle alors que je pense que c`est dans la syntaxe non??

[Aka Guymelef]

Le premier paramètre de type Handle est là pour indiquer une fenêtre parent et lier les deux applications. On passe 0 pour que la nouvelle fenêtre soit rattachée au bureau de Windows.