Discussion :

[ChPr]

Bonjour à toutes et à tous,

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

Code :

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

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

[Alcatîz]

Bonjour,

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

[ChPr]

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 !

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

ce n'est pas :

Code :

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

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

mais (entre autres) :

Code :

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

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

Cordialement.

Pierre

[Alcatîz]

La correction est faite, merci.