Page 1 sur 1

[..] Lancement avec shellexec

Posté : ven. 10 oct. 2008 11:38
par 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

Re: [..] Lancement avec shellexec

Posté : ven. 10 oct. 2008 12:46
par 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 :)

Re: [..] Lancement avec shellexec

Posté : ven. 10 oct. 2008 19:03
par Tlem
Quote Quote Quodette dit la poule. :lol: