Discussion :

[sspython]

Bonjour a tous,

Je suis nouveau dans le monde de delphi et je viens de créer un Navigateur Internet avec Client FTP incorporé.

Je voudrais rajouté dans mon projet un systeme de favoris comme dans internet explorer mais je ne sais vraiment pas comment m'y prendre.

J'ai besoin de votre aide pour terminé mon petit projet bien sympathique a mon gout.

Merci a tous ceux qui voudront participé a mon projet et pouvoir le finaliser.

Merci encore a tous.
A bientot.

[Jipété]

Yop !

un systeme de favoris comme dans internet explorer

Une piste : les fichiers qui sont dans ce dossier (Documents and Settings\username\Favoris) sont de bêtes fichiers texte avec une structure style .ini (tu peux les ouvrir avec le Bloc-notes).
Mes 2 cts,
--
jp

[sspython]

Bonsoir,

Merci de cette réponse mais qui ne peut me servir sur mon projet.
Si quelqu'un a une autre idée avec un debut de code pour me dépanner et me faire avancer se serait tres gentil a lui.

Merci encore et a bientot j'espere.

[sspython]

Bonsoir a tous,

Je desepere vraiment car impossible de trouver comment faire.
J'ai vraiment besoin d'un gros coup de pouce.

Mercia vous et j'espere a bientot.

[OutOfRange]

Salut

Ce code permet de récupérer l'adresse de la page en cours d'internet explorer
A toi de le gérer ensuite dans fichier texte par exemple, comme le suggère Jipété

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
//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;

Je n'en suis pas le concepteur
Il me semble que j'avais trouvé ça ici
http://www.phidels.com/php/index.php3

Bonne prog