Discussion :

[cincap]

Bonjour à toutes et à tous,

Dans le temps il était facile d'ajouter un son à l'ouverture et à la fermeture de Windows.

Pour l'ouverture j'ai mis le son dans le dossier Démarrage, c'est ok.

Pour la fermeture, avec Win 11 on suggère de modifier 3 clés de registre pour ce faire mais niet.

J'avais pensé à récupérer la fin de session mais apparemment cela ne fonctionne pas ou alors je devrai laisser l'application en arrière plan.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 private
    { Déclarations privées }
  procedure EndSession(var Msg: TMessage); message WM_QUERYENDSESSION;
.....
 
procedure TForm1.EndSession(var Msg: TMessage);
begin
 w1.Play; //W1 contient le fichier .wav
 inherited;
end;

Si quelqu'un avait une solution merci d'avance.

@+,

cincap

[cincap]

Bonjour à toutes et à tous,

En cherchant, il existe une piste en C# :

Code C# :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
using System.Windows;
 
namespace SDKSample
{
    public partial class App : Application
    {
        void App_SessionEnding(object sender, SessionEndingCancelEventArgs e)
        {
            // Ask the user if they want to allow the session to end
            string msg = string.Format("{0}. End session?", e.ReasonSessionEnding);
            MessageBoxResult result = MessageBox.Show(msg, "Session Ending", MessageBoxButton.YesNo);
 
            // End session, if specified
            if (result == MessageBoxResult.No)
            {
                e.Cancel = true;
            }
        }
    }
}

Mais modifier le C# en Delphi pas assez expérimenté si quelqu'un pouvait tester le code.

Je continue mes recherches et mes essais.

@+,

cincap

[ShaiLeTroll]

Le code C# est intraduisible et ce qu'il contient n'a aucun intéret, c'est juste un message qui s'affiche

App_SessionEnding c'est un évènement standard, tout le mécanisme de capture est masqué.
Or, toi tu veux justement ce qui est masqué par le .NET

WM_QUERYENDSESSION c'est avant la fin de session, je crois que c'est ce qui permet d'afficher le panneau où les applications informent qu'elles doivent d'abord finir une tache, comme la sauvegarde d'un fichier
Tu dois retourner True ou False plutôt que inherited
Tu ne dois pas lancer le Play à ce moment si c'est pour lancer un son d'arrêt, il faut impérativement un retour immédiat et lancer de façon asynchrone la tache de fin (à l'extrème ShutdownBlockReasonCreate/ShutdownBlockReasonDestroy

WM_ENDSESSION, c'est lorsque la session s'arrête
Là tu as droit à un délai pour garantir que ton programme a fini sa tache importante



Par contre, je l'aurais mis dans un OnMessage du TApplicationEvents et non dans une TForm, je ne crois pas que toutes les fenêtres soient notifiées mais plutôt la "fenêtre" masquée TApplication.
En fait ça doit dépendre de MainFormOnTaskbar mais tu n'utiliserais pas un vieux D6 ?
Aujourd'hui, il devient difficile de répondre pour D6 lorsque l'on utilise D10 au quotidien.

Pour D6, je redéfinirais la WndProc pour choper le message, il est peut-être en dehors de la plage que le TApplication dispatch à la MainForm.
HookMainWindow existe en D6 ?

... je devrai laisser l'application en arrière plan.

Euh évidemment, tu n'as un message qui si ton programme est en cours d'execution pour l'informer qu'il faut que se ferme proprement
Là, j'ai l'impression que tu veux juste déclencher ce son à l'arrêt sans lien avec un arrêt propre de ton programme

Genre le son système que l'on modifiait sous Win98 via la BDR ... c'est tellement Old School ...

[cincap]

Bonjour à toutes et à tous,

@ ShaiLeTroll, merci pour toutes ces infos.

Apparemment Windows 11 n'a pas prévu de mettre un son au démarrage ni à la fermeture malgré la modification des clés DWord "WindowsLogon et Windowslogoff" pour afficher dans la liste des sons "Modifier les sons système".

Même en copiant les sons dans le répertoire "C:\Windows\Media".

Je ne vais pas fermer le topic on ne sait jamais.

@ +,

cincap

[cincap]

Pour information il est facile de faire apparaitre la boite de dialog pour fermer Windows 11 avec d'autres choix.

En ajoutant dans le uses comobj;

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.Button1Click(Sender: TObject);
var
  shell: Variant;
begin
  shell := CreateOleObject('Shell.Application');
  shell.ShutdownWindows;
end;

@+,

cincap

[cincap]

Bonjour à toutes et à tous,

Après bien des tests voici la solution pour celui qui veut un son a la fermeture du PC.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
private
    { Déclarations privées }
 
procedure WMEndSession(var Msg: TWMEndSession); message WM_ENDSESSION;
 
----
 
procedure TForm1.WMEndSession(var Msg: TWMEndSession);
begin
 if Msg.EndSession = True then begin
 
w1.Play; //Important avant le message !
 
ShowMessage(
      'Windows is shutting down ' + #10#13 + 'at ' + FormatDateTime('c', Now)
    );
 
  inherited;
end;
end;

Ce code peut peut-être amélioré ?

Je ferme le topic.

@+,

cincap