Discussion :

[momoi]

bonjour,

je develloppe une petite application qui a besoin de lancer une page internet,

j'utilise ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
procedure TForm1.Button1Click(Sender: TObject);
const
  csOLEObjName = 'InternetExplorer.Application';
var
  IE        : Variant;
  WinHanlde : HWnd;
  sURL      : string;
begin
  if( VarIsEmpty( IE ) )then
  begin
 
   sURL:= edit1.Text;
    IE := CreateOleObject( csOLEObjName );
    IE.Visible := true;
    IE.Navigate( sURL );
  end else
  begin
    WinHanlde := FindWIndow( 'IEFrame', nil );
    if( 0 <> WinHanlde )then
    begin
      IE.Navigate( sURL );
      SetForegroundWindow( WinHanlde );
    end else
    begin
      // handle error ...
  end;
  end;
end;
 
end.

ca marche, seulement, je voudrais faire pareil mais que ce sois firefox qui ce lance a la place d'IE (j'ai besoin d'onglets pour la suite)

j'ai essaié au cas ou, de mettre firefox en navigateur par defaut, mais c'est evidement toujour IE qui ce lance....

si quelqun a une solution simple a ca merci bien

[Reisubar]

Si lancer le navigateur par défaut te suffit, alors la solution suivante est beaucoup plus simple que la tienne :

Code :

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

Shellexecute(0, nil, PChar('http://moimoi.com'), nil, nil, SW_SHOWNORMAL);

[momoi]

merci c'est parfait!!! (et bien mieux que mon code)