Publié : mer. 21/juil./2004 16:01
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
Forums PureBasic - Français
http://forums.purebasic.com/french/
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
Aux deux questions je répondrais 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
ChrisSous Windows 9x/2000/XP, DirectX 7 ou supérieur est nécessaire. Il est neanmoins possible d'utiliser DirectX 3 si l'on utilise le mode de compatibilité Windows NT4.0.
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