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,260 83,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
COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE?COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE? par Matthieu MEZIL
Avec EF, les vues doivent être mappées sur des entity types. Le problème c'est que les entity types doivent avoir une clé. Avec EF, nous avons les complex type qui n'ont pas de clé mais les vues ne peuvent pas être mappées dessus. Avec EF4, il est possibl...
Cliquez pour lire la suite de l'article par Matthieu MEZIL [WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL?[WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL? par JeremyJeanson
Certain d'entre vous on peut être vécu cette situation embarrassante après quelques temps passer avec WF4 : Au début avec mon " ActivityDesigner" , tout allait bien. Et puis un jour j'ai au des problèmes de " Binding" . Alors nous sommes allé sur le site ...
Cliquez pour lire la suite de l'article par JeremyJeanson MYTIC - SHAREPOINT 2010 : DéJà UN MYTHE MICROSOFT ?MYTIC - SHAREPOINT 2010 : DéJà UN MYTHE MICROSOFT ? par junarnoalg
La prochaine session de MyTIC aura lieu à Namur, le 23 mars prochain. Pendant presque une heure, nous parlerons de SharePoint 2010. Voici un aperçu du programme.
Accueil : 17h30 Début de la session : 18h00 - Les nouvelles int...
Cliquez pour lire la suite de l'article par junarnoalg
Logiciels
Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|