Recherche d'un codeRésolu

Question

Bonjour à tous,
J'ai joigné dans ma compilation (vb6 )un fichier pdf. A l'aide de la fonction (shell App.path )je peut l'ouvrir facilement.Mais Je commence à penser à  un utilisateur qui  n'a pas le programme Acrobat installé sur sa machine. 
Donc je cherche un code qui sert à ballayer le system et si il ne trouve pas le programme associer à ce fichier ( Dans mon cas "Acrobat") il envoie un message "veuiller installer acrobat"
Merci d'avance.

cs_ghuysmans99 · Accepted Answer

Voilà quelque chose qui devrait fonctionner :
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Function OpenPDF(Filename As String) As Long
 Dim Res As Long
 Res = ShellExecute(Me.hwnd, "OPEN", Filename, &O0, &O0, 0)
 If Res <= 32 Then
  MsgBox "Impossible d'ouvrir le fichier PDF. " & vbCrLf & "Vous allez maintenant être redirigé vers la page de téléchargement de Foxit Reader.", vbExclamation, "Erreur"
  ShellExecute Me.hwnd, "OPEN", "http://www.foxitsoftware.com/downloads/download_links/downloadreader.php?tag=exe", &O0, &O0, 0
 End If
 OpenPDF = Res
End Function

VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question

Renfield · Answer

trop sectaire.
pourquoi Adobe ?

voir API FindExecutable




Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

cs_zidane22 · Answer

Bonjour Renfield et merci pour le lien.
Mais malheureusement je suis débutant et je suis loin de comprendre ces codes trés avancés.
Je vous serais trés reconnaissant si vous m'ecrivez le code que je cherche.

cs_zidane22 · Answer

Merci beaucoup ghuysmans99

Recherche d'un code

4 réponses

Votre réponse

Discussions similaires