Discussion :

[Invité]

Bonjour.

Malgré mon désir une fois exprimé de retourner dans le giron de Delphi, je continue mes expériences avec Lazarus 1.6 (sous W2000).

Normalement le code ci-dessous :

Code :

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

1
2
3
4
5
6
procedure TMain.Bouton_QuitterClick(Sender: TObject);
begin
  AdvLed.State:=lsOff;
  sndPlaySound('Mus_fin.wav', SND_SYNC);
  TerminateProcess(GetCurrentProcess, 0);
end;

devrait éteindre la Led (allumée au départ), jouer le fichier wav et à la fin quitter le programme.
EH BIEN NON !
La Led reste allumée et DISPARAÎT vers la fin du son (remplacée par un carré) avant fermeture du programme. Par contre une instruction Main.Hide à la place fonctionne ! Curieux ... Je joins le zip du projet pour ceux qui voudraient faire le test !

Merci d'avance.