Discussion :

[OutOfRange]

Bonjour
J'utilise le code trouvé ici
http://www.phidels.com/php/index.php...ip.php3&id=445
pour récupérer l'adresse de la page en cours dans IE
Et ça marche au poil

Le pb, c'est que IE n'est pas mon navigateur par défaut

Voici le code de AM-Vector reproduit (que je remercie au passage )

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
 
//Récupération de l'URL en cours dans Internet Explorer
function GetCurrentInternetExplorerURL:string;
var Explorer,ClientWork,Toolbar,ComboBox,ComboBoxChild,Edit:HWND;
  Mem:integer;
begin
//Retrouve le Handle de la fenêtre principale
Explorer:=FindWindow('IEFrame',nil);
if Explorer=0 then
  Result:=''
else
  begin
  //Cherche le Handle de la fenêtre de travail
  ClientWork:=FindWindowEx(Explorer,0,'WorkerA',nil);
  if ClientWork=0 then
    //Compatibilité XP / 98
    ClientWork:=FindWindowEx(Explorer,0,'WorkerW',nil);
  //Retrouve le Handle de la ToolBar
  Toolbar:=FindWindowEx(ClientWork,0,'ReBarWindow32',nil);
  //Cherche le Handle du ComboBox
  ComboBox:=FindWindowEx(Toolbar,0,'ComboBoxEx32', nil);
  ComboBoxChild:=FindWindowEx(ComboBox,0,'ComboBox',nil);
  //Atteint l'Edit et envoie un message pour avoir le texte
  Edit:=FindWindowEx(ComboBoxChild,0,'Edit',nil);
  Mem:=SendMessage(Edit,WM_GETTEXTLENGTH,0,0)+1;
  SetLength(Result,Mem);
  //Envoi du message
  SendMessage(Edit,WM_GETTEXT,Mem,Integer(@Result[1]));
  end;
end;

Comment puis-je le modifier pour récupérer l'adresse de la page en cours du navigateur par défaut, en l'occurence Mozilla Firefox ?

[hy00ga]

Le problème avec la solution IE est bien sur qu'elle est spécifique à IE. Si tu veux changer ce code pour l'adapter à Firefox, Il va falloir trouver l'endroit dans la hiérarchie des composants de la fenetre de firefox où se trouve la comboBox contenant l'URL.

Pour ca, tu es un peu obligé d'y aller au feeling. Moi je ferai comme ca : Je ferais un petit programme qui m'afffiche le handle et le nom de class de l'objet qui est sous la souris (avec GetCursPos et WindowFromPoint). je mettrai le curseur de la souris sur la combobox et je noterai les informations. Ensuite je récupèrerai la fenêtre parente du handle de la cbb (je sais plus la fonction) et je prendrait ses informations aussi... Et tu répéte ca jusqu'à ce que tu arrive à la fenetre principale de FireFox.

Maintenant que tu as la hiérarchie tu peux réécrire le code correspondant pour la retouver dans l'autre sens avec des findWindow.

Par contre ton code ne fonctionnera plus avec IE