Accueil > > > OUVRIR UNE URL DANS UNE OU PLUSIEURS FENÊTRES, QUEL QUE SOIT LE NAVIGATEUR PAR DÉFAUT
OUVRIR UNE URL DANS UNE OU PLUSIEURS FENÊTRES, QUEL QUE SOIT LE NAVIGATEUR PAR DÉFAUT
Information sur la source
Description
Ouvrir une fenêtre, voire plusieurs dans le navigateur, c'est facile. Mais tout le monde n'a pas Internet Explorer... Mieux vaut donc en tenir compte, et déterminer auparavant le navigateur par défaut de l'utilisateur du programme. NOTE : le résultat de GetDefaultBrowser est le chemin DOS (chemin court). Cela ne semble pas poser de problème, du moins sous Win 98... Sinon, jetez donc un coup d'oeil à cette adresse : http://community.borland.com/article/0,1410,2608 3,00.html J'y ai trouvé la fonction GetDefaultBrowser, que j'ai simplifiée pour l'adapter à l'usage que j'en fais ici.
Source
- Récupérer le navigateur par défaut :
-
- uses ShellApi;
-
- function GetDefaultBrowser: String;
- var
- PathTmp: PChar;
- Browser: PChar;
- begin
- PathTmp:= StrAlloc(255);
- Browser:= StrAlloc(255);
- try
- GetTempPath(255, PathTmp);
- FileCreate(PathTmp + 'temp.htm');
- FindExecutable('temp.htm', PathTmp, Browser);
- Result := Browser;
- DeleteFile(PathTmp + 'temp.htm');
- finally
- StrDispose(PathTmp);
- StrDispose(Browser);
- end;
- end;
-
- Ouvrir l'URL dans le navigateur
-
- - dans la même fenêtre :
- ShellExecute(0, nil, pchar(Url), nil, nil, SW_SHOWNORMAL);
-
- - dans une fenêtre différente :
- ShellExecute(0, nil, pchar(GetDefaultBrowser), pchar(Url), '', SW_SHOWNORMAL)
-
- Voir l'exemple avec code source commenté dans le zip !
-
-
Récupérer le navigateur par défaut :
uses ShellApi;
function GetDefaultBrowser: String;
var
PathTmp: PChar;
Browser: PChar;
begin
PathTmp:= StrAlloc(255);
Browser:= StrAlloc(255);
try
GetTempPath(255, PathTmp);
FileCreate(PathTmp + 'temp.htm');
FindExecutable('temp.htm', PathTmp, Browser);
Result := Browser;
DeleteFile(PathTmp + 'temp.htm');
finally
StrDispose(PathTmp);
StrDispose(Browser);
end;
end;
Ouvrir l'URL dans le navigateur
- dans la même fenêtre :
ShellExecute(0, nil, pchar(Url), nil, nil, SW_SHOWNORMAL);
- dans une fenêtre différente :
ShellExecute(0, nil, pchar(GetDefaultBrowser), pchar(Url), '', SW_SHOWNORMAL)
Voir l'exemple avec code source commenté dans le zip !
Conclusion
Fonctionne parfaitement sous Win 98. A tester avec les autres versions... Vos commentaires sont les bienvenus !
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Ouvrir une fenêtre avec ses dimensions [ par Pilou ]
Comment peut on attribuer la taille et position d'une fenêtre qu'on ouvre avec shellexecute ?ShellExecute (handle,'Open', PChar('c:\windows\') ,PChar
Ouvrir application par une url [ par darkduck ]
Ami programmeur je suis bien embéter.Il y a quelque tps j'ai trouvé dans ce site une source permettant d'ouvrir une application via un lien dans IE.Le
Fenêtre "on top" [ par sebastienbro ]
Bonjours à tous,Voilà mon application comporte deux forms. Ces deux forms doivent rester visible (donc au dessus de toutes les autres) quelque soit la
Multi Fenêtrage [ par lbensch ]
Salut,Je souhaiterais faire en sorte dans mon appli d'ouvrir une même fenêtre n fois, et qu'elle apparaisse séparemment, un peu comme W
Ouvrir une URL [ par norton ]
Bonjour, comment fait-on pour ouvrir une urlEX: http://www.google.comavec internet explorer depui un programme delphi ?j'ai essayé comme ça mais ça n'
ShellExecute : ouvrir une page web avec un navigateur précis [ par memphisakeronaleron ]
Bonjour, Jaimerai ouvrir une page web avec iexplore.exe voila mon code qui ne me fait rien : ShellExecute(GetDesktopWindow, 'open', 'C:\Program Fi
Ouvrir une nouvelle fenêtre dans la barre des tâches de windows [ par Aurel184 ]
salut,je programme une application qui permet de discuter avec des potes sur internet. Et mon application ouvre d'autres fenêtres de discussion.
Ouvrir une fenêtre windows avec "parcourir" ou "enregistrer sous" [ par FeuerFrei118 ]
Bonjour! Je cherche le moyen d'enregistrer ou d'ouvir des fichiers images pour pouvoir après traiter leur propriétés, soit avec une sorte de "parcouri
Ouvrir un lien [ par kopierreko ]
Bonjour à tous. Je suis présentement en train de réaliser un petit programme qui comprend en page d'accueil un petit navigateur ( compo webbrowser bas
Comment empecher Windows de minimizer une fenêtre [ par Phenix40 ]
Salut tout le monde,je veux savoir s'il est possible d'interdir Windows de minimizer une fenêtre qui n'est pas Top-most ? lors de clique sur le bouton
|
Derniers Blogs
TECHDAYS PARIS 2012 : COMMENT SHAREPOINT A SAUVé MES TECHDAYSTECHDAYS PARIS 2012 : COMMENT SHAREPOINT A SAUVé MES TECHDAYS par ROMELARD Fabrice
Speakers : Lionel Limozin et Alain Marty La session commence par une découverte de SharePoint à travers la mise en place d'un environnement SharePoint pour la gestion des Sessions animées par BeWise. Le besoin est très ba...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice PERSPECTIVE 3.0 POUR SILVERLIGHT 5.0PERSPECTIVE 3.0 POUR SILVERLIGHT 5.0 par odewit
Je viens de publier la version 3.0 de Perspective pour Silverlight, qui regroupe un portage sous Silverlight 5.0 des fonctionnalités de Perspective 2.0, le framework 3D de haut-niveau introduit récemment et de nouveaux exemples de code. En voici la li...
Cliquez pour lire la suite de l'article par odewit TECHDAYS PARIS 2012 : TOP 10 DES BEST PRACTICES POUR SQL SERVERTECHDAYS PARIS 2012 : TOP 10 DES BEST PRACTICES POUR SQL SERVER par ROMELARD Fabrice
Speaker : Nadia Ben El Kadi Configuration machine La session commence par la toute première question à se poser lors de la mise en place d'environnement SQL Server, la configuration des machines : Type de mac...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2012 : KINECT + OFFICE 365 UN BON GESTE POUR VOTRE SITECHDAYS PARIS 2012 : KINECT + OFFICE 365 UN BON GESTE POUR VOTRE SI par ROMELARD Fabrice
Speakers : Fabrice Barbin, Samuel Blanchard, Julien Lo Presti Titre Prometteur et attractif invitant à voir comment lier le composant ludique Kinect dans le cadre d'une structure IT classique, notamment au travers de la plat...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2012 : PLEINIèRE DU PREMIER JOURTECHDAYS PARIS 2012 : PLEINIèRE DU PREMIER JOUR par ROMELARD Fabrice
KeyNotes du premier jour pour les développeurs. La session est principalement axée sur une des principales directions prise par Microsoft à travers tous ses nouveaux produits : Cloud privé ou public (Solution Azure) ...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|