Voila j aimerais comment faire pour récuperer l URL qu affiche IE
si quelqu un sait je serais super content![]()
Voila j aimerais comment faire pour récuperer l URL qu affiche IE
si quelqu un sait je serais super content![]()
Elle n'est pas stockée dans la base de registre ?
![]()
![]()
![]()
L'urgent est fait, l'impossible est en cours, pour les miracles prévoir un délai. :bug: ___ "http://club.developpez.com/regles/#LIII-A"Écrivez dans un français correct !!
C++Builder 5 - Delphi 6#2 Entreprise - Delphi 2007 Entreprise - Delphi 2010 Architecte - Delphi XE Entreprise - Delphi XE7 Entreprise - Delphi 10 Entreprise - Delphi 10.4.2 Entreprise - Delphi 11.3 Entreprise - Visual studio 2022
OpenGL 2.1 - Oracle 10g - Paradox - Interbase (XE) - PostgreSQL (15.7)
J'ai trouvé ca :
Si ca peut t'aider ...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;
![]()
![]()
L'urgent est fait, l'impossible est en cours, pour les miracles prévoir un délai. :bug: ___ "http://club.developpez.com/regles/#LIII-A"Écrivez dans un français correct !!
C++Builder 5 - Delphi 6#2 Entreprise - Delphi 2007 Entreprise - Delphi 2010 Architecte - Delphi XE Entreprise - Delphi XE7 Entreprise - Delphi 10 Entreprise - Delphi 10.4.2 Entreprise - Delphi 11.3 Entreprise - Visual studio 2022
OpenGL 2.1 - Oracle 10g - Paradox - Interbase (XE) - PostgreSQL (15.7)
N'oublie pas de rajouter DdeMan dans la clause uses
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2uses DdeMan;
L'urgent est fait, l'impossible est en cours, pour les miracles prévoir un délai. :bug: ___ "http://club.developpez.com/regles/#LIII-A"Écrivez dans un français correct !!
C++Builder 5 - Delphi 6#2 Entreprise - Delphi 2007 Entreprise - Delphi 2010 Architecte - Delphi XE Entreprise - Delphi XE7 Entreprise - Delphi 10 Entreprise - Delphi 10.4.2 Entreprise - Delphi 11.3 Entreprise - Visual studio 2022
OpenGL 2.1 - Oracle 10g - Paradox - Interbase (XE) - PostgreSQL (15.7)
Partager