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 :
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
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;
Merci d'avance,
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;
@+,
Cincap
Partager