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
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
Application par défaut (Ouvrir Avec...) [ par darkduck ]
comment puis je faire pour que certain fichier de mon choix (ex : *.txt) s'ouvrent tous le temps avec mon programme sans que je n'ai a lancer mon prog
|
Derniers Blogs
TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICESTECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice
Animé par: Gaetan Bouveret et Julien Chomarat Business Connectivity Services (BCS) est dans SharePoint 2010 la version 2 de Business Data Catalog (BDC dans SharePoint 2007). Il s'agit de la solution permettant de visualiser des données provenan...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Arnault Nouvel et Antoine Dongois Le processus à prendre : Apprendre (découvrir la plateforme) Préparer (documenter l'historique et choisir la méthode de MAJ) Test (Test de MAJ) Implémenter (Effectuer la MAJ) Valid...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
Comparez les prix

HTC Hero
Entre 550€ et 550€
|