Détection si un logiciel est présent sur le PC

Bonjour à toutes et à tous,

J'aimerai lors d'un lancement de fichier associé à son logiciel (équivalent dblclick), obtenir un message si le logiciel n'existe pas.

Ex : l'ancement d'un fichier *.txt avec le logiciel principal Bloc-notes.

Voici mon code :

procedure TFormLancement.BVIEWClick(Sender: TObject);
var
f:string;
begin

  f:= SD2.FileName; //OpenDialog et Fichier *.txt

  ShellExecute (Handle,'Open',PChar(f),'', '',SW_SHOWMAXIMIZED) ;
 
 end;

J'ai naturellement vérifié sur le net, sans trop avoir de réponse constructive.

Si quelqu'un avait une idée.

Pour ma part, on pourrait aussi tester si le dossier de l'installation du logiciel existe, si oui exécution de l'ouverture du fichier, si non showmessage().

Merci d'avance,

@+,

Cincap


mailto:

Je sais que j'aurai pu faire ceci :

Var
 const Message : array[boolean] of string = ('Non','Oui');
begin
  ShowMessage(FileExists('C:\Documents and Settings\Cincap\Menu

Démarrer\Programmes\Accessoires\Bloc-notes.exe'));
end;

Mais je pense qu'il y a une autre solution au cas ou ce fichier n'est pas installé dans ce chemin.

@+,

Cincap

mailto:

Comme toujours, Cirec est à la hauteur, je vais tester, mais en ce qui concerne le dossier cela fonctionnera t'il, car par expérience, des logiciel installe leur *.exe dans des dossiers dont le nom est accompagné de la version.

Ex: Dossier = "Monlogiciel V 1.02" puis l'exécutable "Monlogiciel.exe"

Dans ce cas, mon application plantera si le dossier n'existe pas.

Ces remarques, sans tester ta fonction naturellement.

Je te tiens au courant.

@+,

Cincap

mailto:

peut importe ou l'application est installé à partir du moment ou elle l'est et qu'elle soit enregistrée au près de windows comme étant l'application à utiliser avec cette extension ce code trouvera le chemin et le nom de ce programme.

Par contre avec ta méthode c'est moins sûr ... si l'utilisateur décide d'installer l'application ailleurs que dans "Program Files" ... ben ... ton code ne trouvera rien

 
@+
Cirec

---

Je viens de tester c'est plus que parfait, seul petit souci, avec la fonction avant, je pouvais utiliser un message d'alerte si le dossier n'était pas présent et si oui, lancer le fichier.

ex: Monlogiciel.txt dans le dossier Monlogiciel

 f:= SD2.FileName; //OpenDialog et Fichier *.txt

if not DirectoryExists('C:\Program Files\Monlogiciel\')
    then begin
    ShowMessage('Attention, Monlogiciel n''existe pas sur ce PC, le viewer est désactivé !');
    Bview.enabled := false;
    exit
    end
    else
    Bview.enabled := true;
    ShellExecute(Handle,'Open',PChar(f),'', '',SW_SHOWMAXIMIZED);

Si c'est possible et si tu as une idée on ne sait jamais.

Sinon, ta fonction est super, j'ai essayé avec d'autres extension.

@+,

Cincap
mailto:

@ Cirec, mais bien entendu, penser difficile on s'égare, je prends de l'âge c'est certain.

Merci encore une fois, tes lumières m'ont à nouveau aidé dans les deux sens.

Bonne journée,

@+,

Cincap

mailto: