shellexecute me lance le bureau!!!

**pierrot67** · 18/03/2006, 22h04

bonsoir

dans mon appli je voudrai lancer internet a partir d'un bouton
mais il m'envoi le bureau pourquoi?

Code :

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

1
2
_Site := trim(form2.annuaire.FieldByName('site_internet').AsString);
Shellexecute(handle,'open',Pchar(_Site),nil,nil, SW_SHOWNORMAL);

**Frank** · 18/03/2006, 22h57

Code :

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

Shellexecute(handle,nil,Pchar(_Site),nil,nil, SW_SHOWNORMAL);

**Frank** · 18/03/2006, 22h58

Et il faut bien sur que l'unité ShellApi soit déclarée dans les Uses.

**pierrot67** · 19/03/2006, 08h59

Ta première proposition ne fonctionne pas et j'ai bien déclaré shellapi dans uses.

**Frank** · 19/03/2006, 10h14

Envoyé par pierrot67

Ta première proposition ne fonctionne pas et j'ai bien déclaré shellapi dans uses.

Tu m'étonnes beaucoup car chez moi cela marche.
Voici mon code et vois si il y a des différences avec le tien.

Code :

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

1
2
3
4
5
6
7
procedure Tfrm_testD2006.btInternetClick(Sender: TObject);
var
  _Site:string;
begin
  _Site:=Edit1.Text;
  Shellexecute(handle,nil,Pchar(_Site),nil,nil, SW_SHOWNORMAL);
end;

J'ai passé

www.yahoo.fr

dans le champ edit1.

**Okaryn** · 19/03/2006, 11h36

Est-ce que cela fonctionne si tu lances manuellement ton adresse à partir de Windows (Menu Démarrer / Exécuter...) ?

Si c'est ko, il ne s'agit pas d'un problème lié à ton code mais aux associations sous Windows.
Si ça fonctionne, est-ce que ton paramètres est correct au moment de l'appel (à voir en debug ou à l'aide d'une boite de dialogue renvoyant le contenu de _Site)

**pierrot67** · 19/03/2006, 20h57

non ça marche à partir du menu demarrer mais attention j'ai delphi 2005
y a des procédures qui ont changé peut-être.

**Okaryn** · 19/03/2006, 21h37

J'utilise Delphi 2005 et cela fonctionne sans problème. ShellExecute est une fonction API, donc indépendante des versions de Delphi.

Quelle est la valeur transmise comme paramètre au moment de l'exécution ? (à voir en débug)