Discussion :

[Coussati]

bonjour

depuis toujours, pour ouvrir un lien dans le navigateur par défaut, j'utilise le code suivant :

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
 
function GetDefaultBrowser: string;
var
    PathTmp: PChar;
    Browser: PChar;
begin
    PathTmp:= StrAlloc(255);
    Browser:= StrAlloc(255);
    try
    GetTempPath(255, PathTmp);
    FileCreate(PathTmp + 'temp.html');
    FindExecutable('temp.html', PathTmp, Browser);
    Result := Browser;
    DeleteFile(PathTmp + 'temp.html');
    finally
    StrDispose(PathTmp);
    StrDispose(Browser);
    end;
end;
 
ShellExecute(0, nil, pchar(GetDefaultBrowser), pchar('http://www.google.fr'), '', SW_SHOWNORMAL);

il fonctionnait super bien avec windows Xp et windows 7

mais voilà depuis les nouveaux windows (8 et supérieur) mes utilisateurs m'ont notifié que les liens ne s'ouvraient plus

là je suis sur un pc, lorsque j'ai exécute la fonction "GetDefaultBrowser" il trouve notepad.exe du coup normal que les liens ne s'ouvrent plus

sur d'autre pc, c'est l'explorer qui s'ouvre

donc voilà je vous demande si vous avez une idée pour avoir une fonction qui passe sur les nouvelles versions de windows également ?

merci

[Ph. B.]

Bonjour,

il fonctionnait super bien avec windows Xp et windows 7

mais voilà depuis les nouveaux windows (8 et supérieur) mes utilisateurs m'ont notifié que les liens ne s'ouvraient plus

Windows 8 32 et/ou 64 bits ?
Que fait la fonction FindExecutable('temp.html', PathTmp, Browser);

[Coussati]

Bonjour,
Windows 8 32 et/ou 64 bits ?
Que fait la fonction FindExecutable('temp.html', PathTmp, Browser);

et bien ne connaissant pas la version exacte de chaque utilisateur, il faudrait quelque chose qui fonctionnera avec tous les derniers windows (et les anciens à partir de xp)

pour répondre à ta question FindExecutable est cencé nous donner le programme par défaut du fichier en question non ?

[NABIL74]

Avec un ShellExecute :

https://support.microsoft.com/en-us/kb/224816

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ShellExecute(0, 'open', PChar('www.developpez.net'), nil, nil, SW_SHOWNORMAL) ;

Mais à tester sous xp,win7,...win10.

j'espère que ça t’aiderait.

[Ph. B.]

pour répondre à ta question FindExecutable est cencé nous donner le programme par défaut du fichier en question non ?

Je pose cette question parce que c'est là qu'est le problème !
Le reste du code présenté est d'une totale inutilité...

Sinon le code proposé par Nabil permet d'accéder à une page html d'un site ou d'ouvrir un fichier html local avec le navigateur par défaut...

[Coussati]

Je pose cette question parce que c'est là qu'est le problème !
Le reste du code présenté est d'une totale inutilité...

Sinon le code proposé par Nabil permet d'accéder à une page html d'un site ou d'ouvrir un fichier html local avec le navigateur par défaut...

effectivement si on regarde bien l'intégralité du code, on peut se dire qu'on peut raccourcir ... car l'idée est de créer un fichier .html puis d'utiliser FindExecutable et ensuite effacer le fichier html

le code de nabile fonctionne bien sur mon pc actuel, c'est drôle, c'est au plus simple ... c'est ce que j'utilisais il y a quelques années, au début, mais je ne me rappelle plus pourquoi il avait ses limites (genre ne fonctionnait pas à certain moment) et j'ai du chercher le chemin du navigateur par défaut ...