Discussion :

[chaours]

Bonjour,

Je cherche à faire un logiciel qui permet de récupérer les adresses WEB tapées dans IE...
Est-ce que quelqu'un connaît un moyen de faire ça ?

Merci de votre aide...

[Lung]

Trouvé ca :

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
   17/2002. How to get the current URL from IE 
{ 
You can quickly retrieve the current 
Internet Explorer's URL with DDE. 
There are a few problems with 
this technique: 
 
- multiple instances of IE could 
be open; in most cases the code 
retrieves URL from the last active 
window. 
} 
uses 
  DDEMan; 
 
// add a button and a memo on a form! 
 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  DDE:TDDEClientConv; 
begin 
  DDE:=TDDEClientConv.Create(self); 
  if DDE.SetLink( 
    'IExplore', 
    'WWW_GetWindowInfo') then 
   Memo1.Lines.Add 
    (DDE.RequestData('0xFFFFFFFF,sURL,sTitle')); 
  DDE.Free; 
end;

[chaours]

Je teste ça de suite...

Tu dois avoir de meilleurs tuyaux que moi pour trouver des infos...

Merci

[chaours]

Ca marche nickel !!! Merci

[Coussati]

Je n'arrive pas a compiler ...

J'ai rajouté un Tboutton et un Tmemo mais sa na pas fonctionné

Je pense que le prob vient des uses ...

Que faut il rajouter dans les uses ?

Au faite comment savoir quel uses mettre pour les composant ou "truc" de ce genre (astuce la plus efficace stp)

donc j'ai rajouté un Tboutton et un Tmemo mais sa na pas fonctionné

[Lung]

Au faite comment savoir quel uses mettre pour les composant ou "truc" de ce genre (astuce la plus efficace stp)

Tu utilise la touche [F1] sur l'objet ou la fonction inconnu !
Avec un peu de chance, l'aide te dira dans quelle classe ca se trouve : il ne te restera plus qu'à l'inclure ...

Quand (par hasard), l'aide ne trouve rien (ce qui arrive), j'utilise GExpert pour chercher dans toutes les bibliothèques, si ce n'est pas utilisé.

[Coussati]

je pige pas trop avec f1 ça me renvoie tjrs à la même page (qui ne ser à rien)

au faite ici c'est quoi le truc à rajouter ?

[Lung]

je pige pas trop avec f1 ça me renvoie tjrs à la même page (qui ne ser à rien)

TDdeClientConv représente une conversation DDE avec une application serveur DDE.

Unité

DdeMan

Description

TDdeClientConv peut être utilisé avec un objet TDdeClientItem pour permettre à une application de se comporter en client DDE. TDdeClientConv propose un grand nombre de propriétés, d'événements et de méthodes offrant les services suivants :

Lien d'un serveur DDE particulier avec une rubrique DDE particulière.
Envoi de données ou de macro-commandes au serveur DDE après l'établissement de la liaison.
Définition d'un format pour les données transmises au serveur DDE.
Définition de gestionnaires d'événements pour traiter l'ouverture ou la fermeture du lien DDE.

L'association entre des objets TDdeClientItem et un TDdeClientConv s'effectue en initialisant leur propriété DdeConv.

au faite ici c'est quoi le truc à rajouter ?

DdeMan dans tes uses.