[..] Lancement avec shellexec

[ethneldryt]

Bonjour.
Voila dans mon script j'ai un truc tout simple :

Code : Tout sélectionner

Func addpiano()
ShellExecute("./addons/piano.exe")
EndFunc

La ca lance piano.exe
mais si l'exe n'est pas present, afficher une message box.
Dans cette msgbox il y a :


Addons non trouver
Le telecharger?
Si oui, il se telecharge dans le dossier ./addons/ puis la msgbox se ferme.
Si non, la message message box se ferme.





Merci de votre aide

[ani]

Code : Tout sélectionner

AddPiano()

Func AddPiano()
; on vérifie si le fichier existe
; si il est présent on l'excécute
If FileExists (./addons/piano.exe) then
   shellexecute(./addons/piano.exe)
else ; sinon
; Message box
    $Reponse = Msgbox(4,"Addons non Trouvé","Voulez-vous le télécharger?")
; On vérifie si on appuie sur le bouton Oui ou Non
    If ($Reponse=6) then
        InetGet("url du telechargement","./Addons/piano.exe")
    else ; sinon
        exit
    Endif
Endif
EndFunc

Voilà à quoi sa doit ressembler, Mais çà ne me convient pas, pourqoi ? je vous laisse deviner

[Tlem]

Quote Quote Quodette dit la poule.