Discussion :

[Yyukk]

Bonjour, alors voici mon soucis:
Je cherche à afficher un menu de jeu juste après une vidéo d'introduction.
La seule façon que je connaisse est celle-ci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TForm1.PlayClick(Sender: TObject);
begin
ShellExecute(Handle,'open',PChar('C:\...'),nil,nil,SW_SHOW);
end;

Mais le soucis est que l'on doit appuyer sur un bouton avec la souris pour que cela fonctionne... Et je souhaiterai que le menu s'affiche directement à la fin de la vidéo.
Je cherche donc des informations pour m'aider à réaliser ce projet.
Je vais continuer à chercher sur le net en attendant une réponse.

A l'avance, merci pour votre aide.

[Gilbert Geyer]

Salut,

Je cherche à afficher un menu de jeu juste après une vidéo d'introduction.

... ben, je suppose que le démarrage de la vidéo d'introduction ne s'effectue pas seul ou par enchantement mais dans un bloc de code à la fin duquel tu peux ajouter ton ShellExecute() au lieu de le placer dans ton TForm1.PlayClick : Oui/non ?

A+

[Yyukk]

Oui, mais est-ce le même principe ? c'est à dire juste mettre ShellExecute avec le cheminement pour aller vers le dossier ? ou alors faut-il rajouter quelquechose de spécifique ?

Edit: bon j'ai réussi mais j'ai un autre souci... le .exe du menu se lance en boucle à la fin de la vidéo.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TMainFrm.DeviceRender(Sender: TObject);
begin
ShellExecute(Handle,'open',PChar('C:\...'),nil,nil,SW_SHOW);
end;

[Gilbert Geyer]

Re-Salut,

Je m'attendais à routine du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
procedure TMainFrm.Tagada; // avac Taga = Bouton1Click() ou OnShow, ou OnCreate etc
begin    ....
           AppelDeLaProcedureDeDémarrageEtDarretVideo;
           //puis lacement du .exe du menu :
           ShellExecute(Handle,'open',PChar('C:\...'),nil,nil,SW_SHOW);
end;

A+

[Yyukk]

Merci pour l'aide.