Discussion :

[bvsud]

Bonjour à tous

Une API me fait des misères. J'appelle Firefox en lui passant une url en paramètre. Ca marche partout, sauf avec cette procédure :

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
 
procedure Lancement_Sur_URL;
Var
  Url : string;
 
begin
  Url := ClipBoard.AsText;
 
  ShellExecute (Handle_App,
                'Open',
                PChar(Nom_Cplt_FireFox),
                PChar(Url),
                '',    // Directory par défaut
                SW_SHOWNORMAL);
 
  Unit1.Quitter;
 
end;

J'ai vérifié, bien sûr : l'url est bel et bien ds le presse-papiers.

[retwas]

L'URL est pas le 3eme paramètre normalement ?

[gbegreg]

Bonjour,

L'URL est pas le 3eme paramètre normalement ?

Pas forcément : passer l'URL en 3ème paramètre ouvrira l'URL avec le navigateur paramétré par défaut. Si bvsud veut être certain que l'url soit ouverte par Firefox, il doit passer le nom complet de firefox.exe en 3ème paramètre et préciser l'url dans le 4ème paramètre. Evidemment, il faut s'assurer au préalable que FireFox soit bien présent...

@bvsud
Tu indiques que l'url est bien renseignée mais la variable Nom_Cplt_FireFox est elle correctement alimentée ?
Qu'est ce qui ne fonctionne pas (Firefox se lance mais n'affiche pas l'url demandée, Firefox ne se lance pas du tout, autre problème) ?

Chez moi ta méthode fonctionne (j'ai remplacé Nom_Cplt_FireFox par le nom complet de firefox.exe et j'ai supprimé Unit1.Quitter).