Comment lancer Firefox à la place d'Internet Explorer ?
bonjour,
je develloppe une petite application qui a besoin de lancer une page internet,
j'utilise ce code
Code:
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 :D
