Impossibilité d'ouvrir une page web

Bonjour , je n'arrive pas a ouvrir une page internet avec Delphi c'est très étrange , voici mon code source

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, ShellApi;

type
  TForm1 = class(TForm)
    Image1: TImage;
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Button3: TButton;
    Button4: TButton;
    Label2: TLabel;
    Button6: TButton;
    Button7: TButton;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.show;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
Shellexecute(handle,nil,'Edit1.caption',nil,nil,0);
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
Shellexecute(handle,nil,'C:\Program Files\mozilla.org\Mozilla\mozilla.exe','Edit1.caption',nil,0);
end;

end.

J'ai même essayé avec Edit1.text mais rien ne vas :\

Salut,

As tu penser à regarder si tu utilisais le bon répertoire et le bon exe ?

procedure TForm1.Button1Click(Sender: TObject);
Begin
shellexecute(handle,nil,'C:\Program Files\Mozilla Firefox\firefox.exe','http://www.delphifr.com',nil,0);
end;

Ca fonctionne chez moi

Pas d'accord avec vous les gars : si IE est son explorateur par défaut, sa page web s'affichera avec lui et non avec FF en utilisant votre procédure.

"Pas d'accord avec vous les gars : si IE est son explorateur par défaut, sa page web s'affichera avec lui et non avec FF en utilisant votre procédure."


on s'en fout, il n'a qu'a faire de FX son navigateur par defaut (ou opera, ou safari, ou maxthon).

---

et voici le GW pour recuperer firefox :

RootKey:HKLM / HKCU
Key:SOFTWARE\Mozilla\Mozilla Firefox -> SZ:CurrentVersion
Key:SOFTWARE\Mozilla\Mozilla Firefox\{SZ:CurrentVersion}\Main -> SZ:PathToExe

ou

RootKey:HKEY_CLASSES_ROOT
Key:Applications\FIREFOX.EXE\shell\open\command -> SZ:@

---

pour recuperer Opera :

RootKey:HKLM / HKCU
Key:Software\Opera Software -> SZ:Last CommandLine

ou

RootKey:HKEY_CLASSES_ROOT
Key:Applications\Opera.exe\shell\open\command -> SZ:@

---

pour recuperer Safari :

RootKey:HKEY_CLASSES_ROOT
Key:Applications\Safari.exe\shell\open\command -> SZ:@

---