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.