Discussion :

[cincap]

Bonjour à toutes et à tous,

J'aurai aimé pouvoir détecter le son Windows attribué par défaut à la "Poubelle" ainsi que le son personnalisé que je lui aurait attribué par un thême.

Voila mon essai :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
{$R *.dfm}
 
uses mmsystem ;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
with ComboBox1.Items do
  begin
  Add('.Default');
  Add('AppGPFault');
  Add('CCSelect');
  Add('Close');
  Add('EmptyRecycleBin');
  Add('MailBeep');
  Add('Maximize');
  Add('MenuCommand');
  Add('MenuPopup');
  Add('Minimize');
  Add('NMain-MouseClick');
  Add('NMain-MouseLeave');
  Add('NMain-MouseOver');
  Add('Open');
  Add('RestoreDown');
  Add('RestoreUp');
  Add('ShowBand');
  Add('SystemAsterisk');
  Add('SystemExclamation');
  Add('SystemExit');
  Add('SystemHand');
  Add('SystemQuestion');
  Add('SystemStart');
 end;
 ComboBox1.Style := csDropDownList;
 
end;

Utilisation :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if not (sndPlaySound (pchar(ComboBox1.items[ComboBox1.ItemIndex]) ,SND_ASYNC ))
   then ShowMessage('Il y a un problème ! Peut-être n''y a t-il pas de son affecté !');
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
if not(PlaySound('c:\WINDOWS\MEDIA\logoff.wav', handle,SND_ASYNC)) then
     showmessage('Il y a un problème ! Peux être le chemin indiqué n''est pas bon...');
 
end;

Merci d'avance,

@+,

Cincap

[Ph. B.]

Bonjour,

J'aurai aimé pouvoir détecter le son Windows attribué par défaut à la "Poubelle" ainsi que le son personnalisé que je lui aurait attribué par un thême.

En consultant la base de registre.
Regardez cet article pour les détails :
Les sons système et Delphi: comment les utiliser ? 1. Où se trouvent les sons du système d'exploitation ?

[cincap]

@ Ph. B. décidemment, tu es toujours le 1er à m'aiguiller, ce lien je l'avais déjà consulté, le code est calqué sur celui proposé.

La base de registre n'indique pas si j'ai mis un fichier par ex Chassedeau.wav à la place du son par défaut par ex "EmptyRecycleBin".

Merci de ton intervention.

@+,

Cincap

[Jipété]

(...) La base de registre n'indique pas si j'ai mis un fichier par ex Chassedeau.wav à la place du son par défaut par ex "EmptyRecycleBin". (...)

Faut aller fouiller là-dedans (en ce qui concerne la corbeille) :

Code :

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

[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\Explorer\EmptyRecycleBin]

Y a 3 sous-clés, je pense que tu pourrais y trouver ton bonheur...

[cincap]

@ Jipété, en effet sous cette sous clé ".Current" je constate mon fichier wav et sous ".Default" celui par défaut.

Mais comment le lire ?

@+,

Cincap

[cincap]

Bonjour à toutes et à tous, avec mon essai, je n'arrive même pas à lire le contenu de cette clé ou se trouve le chemin du fichier wav :

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
23
24
25
 
procedure TForm1.Button1Click(Sender: TObject);
Var
  Reg : TRegistry;
  Key, keyname: string;
begin
 
  Reg:=TRegistry.Create
 
  with Reg do
  try
    Reg.RootKey:= HKEY_CURRENT_USER; //Définit la clé principale
    key := '\AppEvents\Schemes\Apps\Explorer\EmptyRecycleBin';
    keyname := '.Current' ;
 
    if Reg.OpenKey(key,false) {"OpenKey" ouvre une clé particulière (False signifie que la clé n'est pas crée si elle n'existe pas}
    then
    begin
      EdName.Text:=Reg.ReadString(keyname); //Renvoie un string à partir du nom de la valeur
      Reg.CloseKey; //Ferme la clé
    end
  finally
    Reg.Free; //Détruit l'objet
  end;
end;

J'ai vérifié le chemin et c'est ok....

J'ai peut être loupé quelque chose.

@+,

Cincap

[Jipété]

Salut,

J'ai peut être loupé quelque chose.

Vi, je pense que tu as loupé de capter ce que t'affiche Regedit quand tu te balades dans l'arborescence concernée :
les données NE sont PAS TOUJOURS des bêtes strings (REG_SZ dans .Current par exemple) mais sont AUSSI des REG_EXPAND_SZ (dans .Default)

Code :

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

    EdName.Text:=Reg.ReadString(keyname); //Renvoie un string à partir du nom de la valeur

Donc faut revoir cette ligne, àmha.

Mais surtout, il me semble qu'il y a un souci ici :

Code :

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

1
2
3
    Reg.RootKey:= HKEY_CURRENT_USER; //Définit la clé principale
    key := '\AppEvents\Schemes\Apps\Explorer\EmptyRecycleBin';
    keyname := '.Current' ;

L'arborescence réelle semble être key := '\AppEvents\Schemes\Apps\Explorer\EmptyRecycleBin\.Current';.
Quant au "keyname" dans la valeur est "(par défaut)", je ne saurais te dire, je suis au taf et mes docs sont à la maison...

[cincap]

@ Jipété, merci pour l'aide, en effet c'est bien une autre règle d'où l'impossibilité de l'afficher.

L'arborescence réelle semble être key := '\AppEvents\Schemes\Apps\Explorer\EmptyRecycleBin\.Current';.

Sinon pour l'arborescence, elle me semble juste car je viens de refaire un test :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TTestRegEnum.Button1Click(Sender: TObject);
var reg : tregistry;
begin
reg := tregistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('\AppEvents\Schemes\Apps\Explorer\EmptyRecycleBin',false);
reg.ReadString('.Current');
 
 Reg.GetKeyNames(ListBox1.Items);
Reg.GetValueNames(ListBox2.Items);
 
reg.Free
end;

Par contre la valeur ne s'affiche pas !

Je continue mes tests.

@+,

Cincap

[Jipété]

Moi aussi je viens de faire un test au taf avec Lazarus, et quand je mets

Code :

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

1
2
  reg.OpenKey('\AppEvents\Schemes\Apps\Explorer\EmptyRecycleBin\.Current', False);
  Caption := reg.ReadString('');

ça fonctionne tip-top !

[cincap]

@ Jipété, en effet cela fonctionne, j'ai donc revu mon code et c'est aussi ok.

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
 
Var
  Reg : TRegistry;
  Key, keyname: string;
begin
 
  Reg:=TRegistry.Create;//Crée un objet TRegistry
 
  with Reg do
  try
    Reg.RootKey:= HKEY_CURRENT_USER; //Définit la clé principale
    key := '\AppEvents\Schemes\Apps\Explorer\EmptyRecycleBin\.Current';
 
    if Reg.OpenKey(key,false) {"OpenKey" ouvre une clé particulière (False signifie que la clé n'est pas crée si elle n'existe pas}
    then
    begin
      EdName.Text:=Reg.Readstring(keyname); //Renvoie un string à partir du nom de la valeur
      Reg.CloseKey; //Ferme la clé
    end
  finally
    Reg.Free; //Détruit l'objet
  end;

Topic parfaitement résolut puisque on peut placer une méthode pour lire le fichier *.wav

Code :

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

1
2
3
4
5
6
 
procedure TForm1.BPlayClick(Sender: TObject);
begin
if not(PlaySound(pchar(Edname.text), handle,SND_ASYNC)) then
     showmessage('Il y a un problème ! Peux être le chemin indiqué n''est pas bon...');
end;

Encore un grand merci à tous

@+,

Cincap