Afficher un menu après une vidéo

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:

---

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.

Salut,

Citation:

---

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+ :D

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:

---

1 2 3 4

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

---

:(

Re-Salut,

Je m'attendais à routine du style :

Code:

---

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+ :D

Merci pour l'aide.