Lancer le navigateur par défaut sous Windows

Bonjour à toutes et à tous,

Pour ouvrir un fichier HTML avec le navigateur par défaut sous Linux, j'emploie le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10

try CurDir:= GetCurrentDir; Prc:= TProcess.Create(nil); SetCurrentDir(DirEXE); Prc.CommandLine:= 'xdg-open '+'TraitIm.html'; Prc.Execute; finally Prc.Free; SetCurrentDir(CurDir); end;

---

Comment fait-on sous Windows ?

Merci de votre aide

Pierre

Bonjour,

Il y a une réponse dans la toute nouvelle FAQ :
http://lazarus.developpez.com/faq/?p...eur-par-defaut

;)

Merci Alcatiz,

J'y avais pensé, mais ayant mis cette instruction dans mon code, j'ai eu le message "Identifier not found" ce qui m'avais semblé normal pour Lazarus, sans penser à ajouter l'unité "Windows". Suis-je bête :oops: !

Cependant, la syntaxe donnée dans la FAQ est fausse, il manque trois paramètres :

ce n'est pas :

Code:

---

ShellExecute(0, 'open', 'http://www.developpez.com');

---

mais (entre autres) :

Code:

---

ShellExecute(0, 'open','http://www.developpez.com', nil, nil, SW_SHOWNORMAL);

---

Cordialement.

Pierre

La correction est faite, merci. ;)