Aux deux questions, je te répond oui.Chris a écrit :Tu as la dernière version de PB? (3.91)
Ton fichier "Son.wav" est bien dans le même dossier que ton code?
Chris
inclure un fiehier dans l'exécutable
Ben alors, je ne sais pas.
On a la même version de Pure, et chez moi, ton code fonctionne.
A tout hasard:
Si tu as des libs dans le dossier "UserLibraries", supprime les, (sauve les dans un autre dossier), et redémarre le compilo
Essaie de compiler ton code. si ça fonctionne, remet une des libs, redémarre le compilo, et recommence. Jusqu'à ce que ça plante.
Fais pareil avec les fichiers utilisateur du dossier "Residents".
Sinon...
Chris
*********** ARRRRGGGGHHHH*************
T'aurais pu faire ça plus tôt
On a la même version de Pure, et chez moi, ton code fonctionne.
A tout hasard:
Si tu as des libs dans le dossier "UserLibraries", supprime les, (sauve les dans un autre dossier), et redémarre le compilo
Essaie de compiler ton code. si ça fonctionne, remet une des libs, redémarre le compilo, et recommence. Jusqu'à ce que ça plante.
Fais pareil avec les fichiers utilisateur du dossier "Residents".
Sinon...

Chris

*********** ARRRRGGGGHHHH*************
T'aurais pu faire ça plus tôt

Pour inclure un executable dans ton prog.
J'ai mis notepad.exe pour le test, mais tu peux mettre ce que tu veux.
Tu devrais aussi télécharger CodeArchiv sur http://www.purearea.net
Tous les codes que je t'ai mis viennent plus ou moins de là.
Chris 
J'ai mis notepad.exe pour le test, mais tu peux mettre ce que tu veux.
Tu devrais aussi télécharger CodeArchiv sur http://www.purearea.net
Tous les codes que je t'ai mis viennent plus ou moins de là.
Code : Tout sélectionner
Enumeration
#Btn_Bloc
EndEnumeration
;-Ouverture de la fenêtre
If OpenWindow(1, 0, 0, 200, 100,#PB_Window_ScreenCentered| #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget, "Sound")
If CreateGadgetList(WindowID())
ButtonGadget(#Btn_Bloc,10,25,180,50,"Envoie l'bloc-note")
EndIf
EndIf
Repeat
Select WaitWindowEvent()
Case #PB_EventGadget
Select EventGadgetID()
Case #Btn_Bloc
If CreateFile(0, "MyNotepad.exe")
WriteData(?MyExec, ?MyEndExec - ?MyExec)
CloseFile(0)
EndIf
While RunProgram("MyNotepad.exe","","",1) <= 0 : Wend
DeleteFile("MyNotepad.exe")
EndSelect
Case #PB_Event_CloseWindow
Quit = 1
EndSelect
Until Quit = 1
End
;- Inclusion de l'éxécutable dans le programme
DataSection
MyExec:
IncludeBinary "Notepad.exe" ; Executable
MyEndExec:
EndDataSection

Avec un petit film, par exemple une sorte de clip de quelques secondes au démarage de ton application, pourquoi pas. Mais pense à donner la possibilité de le désactiver, parce que si il faut se taper 20 secondes de ton truc à chaque démarrage, ça risque d'être lassant, à la longue.J'ai eu une idée un peu folle pour changer... le filme incorporé au lecteur
Chris
